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Abstract 

Logistics  concerns  such  ss  reliability  and  maintain— 
ability  are  the  results  of  product  design.  Logistics  Models 
are  the  tools  used  by  the  logistics  engineers  to  analyte 
these  logistics  concerns.  Currently,  logistics  Models  are 
run  priaarily  on  mainframe  computers  and  at  later  stages  of 
the  design  process.  If  logistics  Models  Mere  adapted  to 
microcomputere,  the  models  Mould  be  More  acceseible  to  the 
logistics  engineers,  thus  resulting  in  products  Mhich  are 
more  reliable  and  mare  easily  maintained. 

A  further  step  Mould  be  to  interface  these  Models  Mith  a 
computer-aided  design  <CAD>  system.  CAD  systems  have  proven 
to  be  a  very  useful  engineering  tool  during  product  design. 
The  interfacing  of  these  models  to  a  CAD  system  Mould  allom 
the  logistics  engineer  to  analyze  design  earlier,  thus 
achieving  greater  flexibility  in  the  design  process. 

This  research  examines  the  difficulties  of  selecting 
models  for  Incorporation  into  a  CAD  system  and  the  use  of 
microcomputers  to  run  these  models.  A  selection  function  was 
developed  to  identify  models  for  specific  types  of  analysis 
and  their  suitability  for  incorporation  into  a  CAD  system. 

The  literature  on  microcomputers  was  examined  to  determine 
the  limitations  of  microcomputers  to  run  large  logistics 


modal s.  To  furthar  da-fina  thaaa  limitations  tha  Raal lability 
Maintainability  Coat  Modal  was  adaptad  to  an  IBM-PC  micro— 
computar. 


ADAPTING  LOGISTICS  MODELS  TO  A 


MICROCOMPUTER  FOR  INTERFACE  WITH 
COMPUTER-AIDED  DESIGN  SYSTEMS 

I.  Introduction 

Backaround/Justif i cation 

During  tn*  lost  tsn  ysars  ths  snginssring  design  procsss 
has  boon  changing.  Savor al  kay  davalopaants  hava  pi ay ad  a 
aajor  rolo  during  this  transitional  period.  Engineering  News 
Record  (Decaabar  1981)  identifies  the  develop sent  of  Coaputer 
Aided  Design  systems  as  one  of  the  aost  significant  events  in 
the  history  of  the  design  process  (11).  The  design  engineer 
translates  the  product  requi resents  into  a  hardware  design. 
The  product  design  sets  the  upper  limit  of  performance.  Per¬ 
formance  cannot  be  manufactured)  therefore,  design  engineers 
spend  countless  hours  trying  to  insure  a  product  is  properly 
designed  before  it  goes  into  production. 

Computer-aided  design  (CAD)  is  a  tool,  developed  over 
the  last  ten  years,  which  has  aided  engineers  in  their  quest 
for  increasing  product  performance.  An  engineer  using  CAD 
can  now  make  numerous  design  changes  to  a  proposed  product 
and  run  several  engineering  analysis  programs  on  the  new 
design  within  minutes.  This  increases  the  total  number  of 
designs  the  engineer  can  study  thus  increasing  the  likelihood 


o-f  a  favorable  dvtign  being  developed.  Othar  banafita  basidas 
iaprovad  product  daaign  ara  also  realized  whan  a  CAD  ayataa 
is  usad  in  tha  dasign  procass  (24i233)s 

-  Tha  dasignar  is  aidad  in  solving  dasign  problems 
that  ara  not  easily  tacklad  without  a  computer, 

-  Raducad  dasign  costs  are  raalizad  through  a 
reduction  in  manhours, 

-  Companies  ara  able  to  reach  their  full  productive 
potential  by  avoiding  bottlenecks  in  tha  dasign  office,  and 

-  Product  dasign  time  is  raducad. 

Tha  next  major  event  to  impact  tha  dasign  procass  was 
tha  realization  that  logistics  concerns  such  as  reliability, 
supportability,  and  spares  requirements  ara  also  tha  result 
of  product  designs  and  like  performance,  they  cannot  be 
manufactured  but  must  be  designed  into  a  product.  With  this 
realization  came  the  development  of  Logistics  Support 
Analysis  (LSA) .  "LSA  efforts,  to  ba  of  maximum  effectiveness, 
should  commence  when  system/equipment  concepts  are  being 
formulated  C34*193."  Blanchard  <4i 14)  offers  the  following 
description  of  LSAi 

LSA  constitutes  the  application  of  selected  quantita¬ 
tive  methods  to  (1)  aid  in  the  initial  determination 
and  establishment  of  logistics  criteria  as  an  input 
to  system  design,  (2)  aid  in  the  evaluation  of  vari¬ 
ous  design  alternati ves,  (3)  aid  in  the  identifica¬ 
tion  and  provisioning  of  logistics  support  elements, 
and  (4)  aid  in  the  final  assessment  of  the  system 
support  capability  during  consumer  use.  LSA  is  a 
design  analysis  tool  employed  throughout  the  early 
phases  of  system  development  and  often  includes 
maintenance  analysis,  life-cycle  costs  analysis, 
and  logistics  modeling. 


“Up —front  analysis  and  dssign  is  inparativa  if  tha  re- 
sulting  dasign  is  to  ba  supportabla  in  a  cost-af factiva  man- 
nar  C23tll."  This  raquiras  tha  logistics  anginaar  to  be  a 
part  of  tha  product  dasign  froa  tha  earliest  possible  moaant. 
Tha  LSA  system  is  a  step  in  tha  right  direction  and  a  tremen¬ 
dous  improvement  over  the  previous  system)  but  LSA  also  has 
several  major  shortcomings  <39i2-5)i 

-  Creation  of  redundant  data  bases  increases 
development  costs  and  chances  for  data  error  and 

-  Analysis  of  the  data  and  communication  of  the 
findings  to  the  design  engineer  often  occur  too  lata  to  allow 
for  effective  design  changes. 

CAD  technology  has  the  potential  to  overcome  the  draw¬ 
backs  of  LSA  and  "could  very  well  become  the  next-generation 
tool  for  both  maintainability  and  logistic  support  analysis 
C23ill."  During  design  of  an  item  on  a  CAD  system,  data 
regarding  the  design  is  captured  and  stored  in  a  data  base. 
This  data  is  then  available  for  all  interested  parties  to  use 
and  the  need  for  duplicate  data  bases  is  eliminated. 

The  current  iterative  LSA  process  would  also  be  brought 
a  step  closer  to  the  design  engineer.  A  logistics  engineer, 
for  example,  could  analyze,  on  a  timely  basis,  a  new  product 
design  for  maintainability  if  the  appropriate  computer  models 
were  available  and  interfaced  with  the  CAD  system.  This 
ability  would  aid  the  logistics  engineer  in  achieving  his 
goal  i 
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...  to  evaluate  the  overall  lyitm,  define  the 
elements  involving  high  risks f  conduct  trade-off 
studies  to  evaluate  the  risks  (or  various  design 
approaches) f  and  document  all  data  so  that  all 
elements  of  design  and  support  can  be  tailored  to 
produce  an  optimum  overall  system  £4tl83. 

Additional  benefits  would  be  achieved  ax jo  if  logistics 

models  were  interfaced  with  CAD.  "The  logistics  engineer  is 

considered  part  of  the  design  teami  but  normal ly,  he  becomes 

no  more  than  a  data  collector  and  his  role  as  engineer  is 

ignored  (40i2).M  A  logistics  interfaced  CAD  system  would 

help  the  logistics  engineer  in  the  performance  of  his  data 

collection  task. 

Research  by  the  Air  Force  Human  Resources  Laboratory  at 

Wright -Pat ter son  Air  Force  Base  offers  the  following  reason 

to  interface  logistics  models  with  a  CAD  systemi 

If  maintenance  and  logistics  requirements  can  be 
incorporated  into  the  automated  (CAD)  engineering 
design  process,  design  for  maintenance  will  become 
technically,  organizationally,  and  motivationally 
a  standard  practice  C37«21. 

Lockheed  Missile  and  Space  Company  already  has  begun  to 
use  CAD  to  determine  maintainability  of  design.  The  maintain¬ 
ability  engineer  operates  ADAM  (Anthropometric  Design  Aid 
Manikin)  from  a  CAD  terminal. 

ADAM  identifies  maintenance  interfaces  and  estab¬ 
lishes  relative  scale  and  technician  working 
positions  which  help  the  designer  to  more  fully 
appreciate  the  maintainability  implications  of 
his  designs.  The  use  of  ADAM  does  not  interfere 
with  the  engineer's  prerogati ves,  but  provides  a 
realistic  basis  for  discussing  the  best  means  of 
meeting  maintenance  requirements  such  as  access, 
reach,  and  working  postures  C8sl23. 


Problem  Statement 


The  question  now  bi 


how  doss  one  go  about  inter¬ 


facing  logistics  Models  with  CAD.  Several  alternatives 
exist.  One  could  specifically  design  logistics  Models  and 
tools  (such  as  Lockheed's  ADAM)  to  run  on  a  CAD  systes. 
This  poses  several  drawbacks! 


This  poses  several  drawbacks! 

-  The  cost  of  providing  or  insuring  adequate  access 
to  a  CAD  terninal  for  each  logistics  engineer  could  prove 
prohibitive. 

-  "The  inherent  lack  of  portability  of  CAD  prograMS 
froM  one  host  Machine  to  another  is  a  Major  factor  in  the 
linited  availability  to  users  C26i43."  This  would  lieit 


the  logistics  engineer  to  running  only  those  Models  ieple— 


Men ted  on  the  CAD  systeM  which  holds  the  design  data. 

-  The  CAD  system's  computing  power  could  quickly 
became  overburdened.  "With  many  users  vying  for  limited 


resources,  a  user's  turnaround  time  to  complete  a  particular 


design  problem  can  be  significantly  degraded  C26i43.” 

The  interfacing  of  a  CAD  system  with  an  alternate  com¬ 
puting  source  offers  a  more  flexible  response! 

-  The  CAD  system's  computing  power  would  be  taxed 
only  when  transferring  required  data  to  and  from  the  alternate 
computing  source. 

-  If  a  communication  link  was  used  in  the  interface, 
the  alternate  computing  source  could  tap  into  several  CAD 
systems,  thus  allowing  the  logistics  engineer  to  analyze  each 
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design  using  any  logistics  sodol  availabls. 

Ths  Air  Fores  Husan  Rssourcss  Laboratory  at  Wright- 
Pattsrson  Air  Fores  Bass  is  currsntly  studying  ths  pr obi ass 
of  intar-facing  an  altarnata  cosputing  sourca  with  a  CAD 
systss.  Ths  initial  thrust  of  this  study  has  focused  in  two 
arsast 

1.  How  doss  ons  interface  with  a  CAD  systss  and 
its  data  bass? 

2.  What  problsss  and  constraints  ara  sncountsrsd 
if  a  sicrocosputsr  is  ussd  as  ths  altarnata  cosputing  sourcs? 
It  is  ths  intant  of  this  thasis  to  invsstigata  and  answsr  ths 
sscond  question. 

Whv  a  Micro? 

The  sal set ion  to  use  a  sicrocosputsr  was  based  on 
several  factors! 

-  People  hava  experienced  problsss  in  using  large 
timesharing  systems  on  mainframe  computers  <3iU2|  26i4). 

-  The  increasing  computational  power  coupled  with 
the  decreasing  cost  of  microcomputers  offers  an  attractive 
alternative  to  the  use  of  a  large  mainframe  or  minicomputers. 
The  computational  power  of  microcomputers  is  discussed  in 
Chapter  4. 

-  Microcomputers  have  introduced  a  new  dimension  to 
CAD.  No  longer  are  CAD  systems  run  only  on  large  mainframe 
computers  or  dedicated  processors.  For  example,  CAD  systems 
now  exists  for  the  Apple  computer  (CAD-Apple  System  by  T&W 


Systems)  and  the  IBM-PC  (MicroCAD  by  Computer  Aided  Design, 
AutoCAD  by  Autodesk,  Inc.,  and  The  Drawing  Processor  by  B8 
Graphics).  Considering  that  Intel  and  National  Semiconductor 
have  already  begun  to  market  32-bit  microproccessors  (Intel i 
1APX432  and  National  Semiconductor!  16032)  that  approach 
main-frame  computational  power,  it  should  only  be  a  short 
period  before  microcomputers  support  multiuser  CAD  systems. 

-  With  the  migration  of  CAD  systems  to  micro¬ 
computers,  a  distributed  processing  environment  would  allow 
a  natural  interface  to  exist  between  the  design  engineer's 
workstation  and  the  logistics  engineer's  workstation. 

-  Cost  of  a  computer  system  is  an  important  factor. 
An  LSA  computer  system  described  by  Naas  and  Eames  (29)  costs 
approximately  *23,000.  Twenty-five  thousand  dollars  would 
purchase  five  to  six  mi cr ocomputer  configurations  described 
in  the  fallowing  section. 

Scope  and  Limitations 

For  the  purpose  of  this  research  a  microcomputer  was 
defined  to  consist  of  the  following  hardware! 

1.  Intel 's  iAPX  88/10  (8088)  mi cr opr ocessor , 

2.  Intel 's  iAPX  88/20  (8087)  numeric  data  processor, 

3.  512K  random  access  memory, 

4.  graphics  capability, 

5.  ten  megabyte  fixed  disk, 

6.  one  floppy  disk,  and 

7.  communications  gear  for  operation  at  a  minimum 


ap««d  of  1200  baud. 

By  defining  minimum  hardware  requirements,  we  insure  upward 
compatibility  with  the  majority  of  computing  systems  avail¬ 
able. 

Research  Objectives 

An  underlying  theme  of  this  thesis  is  the  improvement  of 
the  logistics  analysis  process  during  the  design  of  a  product 
We  do  not  want  to  identify  problems  with  implementing  just 
any  model  on  a  microcomputer  but  only  those  logistics  models 
which  would  be  useful  during  the  design  stage  of  a  product) 
therefore,  the  overall  objective  of  this  research  is  twofold! 

1.  Identify  models  considered  useful  by  logistics 
engineers  during  the  design  stage  of  a  product. 

2.  Identify  constraints  and  problems  one  encounter 
in  the  implementation  of  these  models  on  a  microcomputer. 

Research  Questions 

To  achieve  the  first  research  objective  the  following 
questions  must  be  answered! 

1.  In  the  early  design  stages,  what  type  of 
analysis  does  the  logistics  engineer  want  to  perform? 

2.  What  problems  are  associated  with  the  use  of 
logistics  models  in  the  early  design  stages? 

To  achieve  the  second  research  objective  the  following 
questions  must  be  answered! 


1.  What  are  the  hardware  constraints  imposed  by 


the  use  o-f  a  microcomputer? 

2.  What  are  the  soft war a  constraints  imposed  by 
tha  usa  o-f  a  microcomputer? 

Summary 

This  chaptar  has  prasantad  a  brief  introduction  to  tha 
sub j act  o-f  this  rasaarch  effort.  Justification  -for  tha 
study  has  baan  givan  and  objactivas  idanti-fiad.  Tha  re— 
maining  chaptars  prasant  tha  mathodology  usad  in  achiaving 
thasa  objactivas*  documentation  o-f  tha  results*  and  conclu¬ 


sions  and  recommendations 


The  validity  of  any  rasaarch  ia  often  quastionad  and 
this  is  only  raasonabla.  Rasaarch  dalving  into  a  naw  araa 
is  subjected  to  even  harsher  scrutiny.  It  is  with  these 
thoughts  in  aind  that  the  Methodology  of  this  rasaarch  effort 
was  developed.  The  methodology  must  not  only  meet  the 
objectives  of  this  research  but  also  support  the  validity  of 
conclusions  put  forward.  To  achieve  this  goal  a  methodology 
of  three  parts  was  developadi 

1.  Literature  review 

2.  Interview* 

3.  Implementation  of  two  logistics  models. 

Li ter ature  Review 

A  literature  review  was  conducted  in  two  parts.  The 
first  part  of  the  literature  review  attempted  to  determine 
which  logistics  models  should  be  interfaced  to  a  CAD  system. 
It  was  felt  this  was  an  important  first  step  because  one 
could  be  quickly  overwhelmed  by  the  number  of  models  avail¬ 
able  to  study.  We  also  assumed  that  the  problems  encountered 
in  implementing  just  any  logistics  model  on  a  microcomputer 
were  probably  not  the  same  as  implementing  models  dealing 
with  product  design. 

The  second  part  of  the  literature  review  focused  on 


microcomputers.  This  review  of  mi crocomputers  was  directed 


in  three  area s.  First,  the  currant  capabilities  of  mi cro- 


coaputers  m ara  discus sad.  An s wars  to  tha  following  quastions 
war a  sought! 

-  Doas  tha  procaaaing  spaad  of  aicrocoaputars  aaka 
it  iapractical  to  iaplaaant  tha  daairad  modal s? 

-  Do  aicrocoaputars  possass  tha  raquirad  numaric 
capability  raquirad  by  tha  daairad  aodals? 

-  Do  aicrocoaputars  hava  anough  aaaory  ax pand¬ 
ab  i  1 i ty  to  allow  iaplaaontation  of  tha  dasirad  aodals? 

-  Do  aicrocoaputars  support  tha  paripharal  davicas 
raquirad  by  tha  daairad  aodala? 

Maxt ,  tha  currant  stata  of  softwara  davalopaant  was 
consi darad.  An a wars  to  tha  following  quastions  wars  sought! 

-  What  problaas  hava  othars  ancountarad  in  iapla¬ 
aant  ing  prograas  on  aicrocoaputars? 

-  Ara  tha  oparating  systaos  currently  available  for 
aicrocoapuv  i  sophisticated  enough  to  support  concepts  such 
as  prograa  overlays  and  aaaory  paging? 

-  Ara  the  prograaaing  languages  currently  available 
for  aicrocoaputars  sufficiently  developed  to  aaka  programming 
practical? 

iQJUCyiAfift 

Structured  interviews  ware  conducted  with  individuals 
knowledgeable  in  microcomputer  software  development  and 
with  logistics  engineers.  Tha  purpose  of  tha  interviews  was 
to  confirm  and  enhance  information  found  in  the  literature 


regarding  the  questions  listed  abov«. 

Separata  interview  instrueenta  were  developed  for  each 
topic  of  discueaion  (refer  to  Appendices  A  and  B) .  Each 
instrueent  was  validated  by  conducting  two  trial  interviews 
with  individuals  knowledgeable  with  the  subject  Material. 

leoleeentation  of  Two  Logistics  Models 

To  further  define  and  refine  the  problees  and  constraints 
that  are  encountered  when  using  a  Microcomputer  to  implement 
logistics  models,  two  logistics  models  ware  selected  for 
implementation.  The  models  selected  ware  identified  by 
logistics  engineers  as  useful  for  performing  analysis  during 
a  product's  design  stage.  During  the  implementation  process, 
specific  attention  was  paid  to  the  following  factorsi 

-  What  input  data  would  be  provided  from  the  CAD 
data  base  versus  what  information  would  be  provided  by  the 
logistics  engineer? 

-  The  technical  feasibility  of  implementing  the 
models  (for  example,  do  the  algorithms  used  by  the  models 
require  modification  to  allow  the  models  to  be  implemented 
on  the  microcomputer?) 

-  What  type  of  programming  effort  was  required  to 
implement  the  models? 

-  Do  the  models  provide  results  comparable  to  the 
results  from  previous  host  computers? 

-  Do  the  output  of  the  models  lend  itself  to  a 


mi cr ocomputer  application? 


This  chaptsr  presented  ths  methodology  ussd  in  dsvsl op¬ 
ing  ths  criteria  for  modal  idmnti float ion.  Tha  topic  of  this 
rasaarch  cal lad  for  a  aathodology  that  was  not  basad  upon 
quantitativa  rigor  but  a  data  gatharing  synthesizing  approach. 
Tha  relative  lack  of  rasaarch  data  in  this  area  also  dictated 
a  methodology  basad  upon  what  many  would  call  common  sense. 

Tha  next  two  chapters  present  tha  information  gathered  from 
tha  literature  and  interviews. 


We  hivt  have  put  -forth  the  concapt  that  involving  tha 
logistica  anginaar  aarliar  in  tha  daaign  procasa  Mill  anhanca 
tha  ovarall  daaign  of  a  ay at am.  This  is  not  a  noval  concapt 
but  ana  that  ia  raadily  aupportad  in  tha  litaratura. 

Conaidar  tha  -follOMing  etatementai 
Banjaain  Blanchards 

.  .  .  experience  haa  indicatad  that  a  graat  daal  of 
i  op  act  on  tha  projactad  lifa-cycla  coat  for  a  gi von 
ayataa  or  product  ataaa  froa  dociaiona  aada  during 
tha  aar ly  phaaaa  of  advanca  ayataa  planning  and 
concoptual  daaign  C4i51. 

Tarranco  Sterkel s 

Logiatica  drivan  daaign  offara  coat  affocti vaoaaa, 
ainiaua  technical  riaka,  and  adhoranco  to  ayataa 
roqui reaanta  C40i 1 1 . 

Edward  Naaa  and  Suaan  Eaaaai 

Logiatica  auat  bo  conaidorad  aa  a  daaign  paraaatar. 

Wa  auat  influence  tha  daaign  with  relative  quicknaaa 
ao  that  tha  and  item  can  be  aaintainad  and  aupportad 
C29i 11. 

What  ia  intereating  ia  that  each  of  thaaa  individuala  offara 
a  different  viewpoint  aa  to  why  tha  logiatica  anginaar  ehould 
be  involved  in  the  daaign  proceaa,  but  they  all  aupport  two 
comnan  themeai 

1.  Tho  logiatica  engineer  ahould  become  involved 
in  tha  daaign  procaaa  aa  early  aa  poaaible. 

2.  Logiatica  modal a  provide  the  logiatica  engineer 
tha  toola  to  analyza  a  ayatem  or  product 'a  daaign  from 
aeveral  different  paropecti vaa. 

The  aecond  of  thaaa  two  themaa  ia  explored  in  thia 


chapter.  We  begin  by  offering  tone  motivation  for  the  use  of 
logietics  models.  We  then  focus  on  the  classifications  of 
models  and  the  inherent  problems/1 imitations  of  using  these 
models.  Lastly,  we  developed  an  evaluation  technique  for 
identifying  logistics  models  suitable  for  incorporation  into 
a  CAD  system. 


The  benefits  derived  from  using  logistics  models  are 
numerous.  Perhaps  the  most  important  benefit  derived  from 
the  use  of  models  is  that  the  logistics  engineer  is  allowed 


to  analyze  the  design  of  a  system  from  several  different 
perspectives  "before  substantial  money  and  time  is  spent  on 
its  development  C32*vi3." 

Models  also  allow  the  logistics  engineer  to  deal  more 
easily  with  the  increasing  complexities  of  designing,  pro¬ 
curing,  and  maintaining  a  system  <14il). 

A  more  subtle  benefit  derived  from  the  use  of  models  is 
the  aid  in  repetitive  analysis.  Once  a  model  is  designed  and 
implemented,  it  aids  the  logistics  engineer  by  reducing  the 
time  required  to  analyze  several  design  trade-offs  (35i27). 

Blanchard  offers  the  following  six  reasons  why  models 
are  useful  (4i403)s 

1.  Models  allow  numerous  interrelated  elements  of 
a  system  to  be  treated  as  a  whole. 

2.  Models  allow  many  different  alternatives  and 
variations  of  the  system  to  be  studied. 
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3.  Modal •  aid  in  solutions  to  problems  that  other¬ 
wise  might  not  be  solvable. 

4.  Models  aid  in  identification  of  high-risk  areas 
3.  Models  aid  in  processing  large  amounts  of  data 

efficiently. 

6.  Models  aid  in  assessing  the  impact  of  alterna¬ 
tive  actions  on  the  total  system. 

To  be  fair,  it  should  be  noted  that  the  use  of  logistics 
models  is  not  all  rosy  in  that  many  models  are  not  properly 
verified  or  cannot  accept  estimated  data. 

Cl assif i cation  of  Models 

With  so  many  benefits  possible,  it  is  no  wonder  that  the 
use  of  models  throughout  the  logistics  community  has  been 
increasing.  Several  of  the  applications  in  which  models  are 
used  to  perform  analysis  are  <14i2)t 

-  life  cycle  cost, 

-  maintenance  repair  policy, 

-  spare  parts  purchase  and  distribution, 

-  resource  usage  and  requirements, 

-  maintainability  design, 

-  reliability  design,  and 

-  supportability  design. 

By  no  means  is  this  an  exhaustive  list.  If  one  couples  the 
numerous  applications  in  which  models  can  be  used  with  the 
proliferation  of  models,  one  becomes  faced  with  the  complex 
task  of  selecting  the  proper  model  for  the  job.  This  problem 


is  av«n  further  compounded  by  tha  lack  of  a  conaistantly 
usad  scheme  to  classify  modal s.  Whila  it  mss  not  tha  intant 
of  this  thasis  to  davalop  a  modal  classification  scheme,  it 
mas  nacassary  for  us  to  dalva  into  this  quastion  to  ba  abla 
to  idantify  modal s  that  ara  appropriata  for  usa  in  tha  aarly 
dasign  stagas  of  a  systam. 

Par haps  tha  aasiast  May  to  classify  modals  is  by  thair 
solution  tachniquai  simulation,  mathematical,  statistical, 
netMorks,  and  miscellaneous  <li3-6>.  One  can  further 
break  doMn  these  main  categoriess 

-  simulation 

-  continuous  change  models!  make  usa  of  fixed 
time  increments  as  tha  timing  mechanism  in  the  modal. 

-  discrete  change  modal si  maka  usa  of  tha  naxt 
avant  concept  as  tha  timing  mechanism  in  tha  modal. 

-  mathematical  programming 

-  linear  programming 

-  integer  programming 

-  nonlinear  programming 

-  goal  programming 

-  dynamic  programming 

-  statistical 

-  regression  analysis 

-  exponential  smoothing 

-  sampling 

-  hypothesis  tasting 


-network* 


-  PERT 

-  CPU 

-  miscellaneous 

-  queuing  theory 

-  inventory  theory 

-  costing/accounting  theory 

-  heuristics 

" A  particular  methodology  will  probably  be  dominant  rather 
than  exclusive  in  a  model  £32:123"  but  the  solution  technique 
needs  to  be  known  by  the  model  user.  Different  solution 
techniques  could  and  probably  would  yield  different  results 
when  applied  to  the  same  problem,  thus  the  motivation  for 
classifying  models  by  solution  technique. 

Classifying  models  by  solution  technique  has  several 
drawbacks  as  does  any  classification  scheme.  One  particularly 
large  problem  created  by  this  classification  scheme  is  that 
it  offers  no  insight  into  when  the  model  should  be  u»ed  for 
analysis  or  the  function  of  the  model.  Thus  we  have  classi¬ 
fication  schemes  for  models  by  life  cycle  phase  and  by 
application. 

Blanchard  has  broken  the  life  of  a  system  into  six 
distinct  phases  (4:317) * 

-  Conceptual  phase:  the  need  for  the  system  is 

def i ned . 


-  Advance  development  phase:  system  configuration 


is  defined 


-  Detail  design  and  development  phase i  the  systems 
and  all  their  support  items  are  designed  and  tested. 

-  Production  and/or  construction  phase*  the  system 
and  its  support  items  are  produced. 

-  Operational  use  phases  the  system  is  deployed. 

-  System  retirement  phases  the  system  is  phased  out. 

Models  used  in  one  phase  may  or  may  not  be  suitable  for 

use  in  another  phase  due  to  data  requirements  (availability 
and  validity)  or  analysis  performed)  therefore,  it  is  impera¬ 
tive  for  the  logistics  engineer  to  know  what  models  apply  at 
a  particular  stage  of  a  system's  life. 

There  are  several  classification  schemes  for  categoriz¬ 
ing  models  by  application.  Paulson,  Waina,  and  Zacks  (32) 
used  this  scheme  in  classifying  46  models  into  seven  appli¬ 
cations  categories*  spares,  aerospace  ground  equipment  (AGE) , 
personnel ,  maintenance  pasture,  operations,  life  cycle  cost, 
and  project  management.  The  Defense  Logistics  Studies 
Information  Exchange  (DLSXE)  produces  catalogues  of  logistics 
models  using  five  major  categories  but  provides  a  further 
breakdown  by  a  secondary  coverage  index  to  provide  a  total 
of  49  categories* 

Major  Category  Number  of  Sub -Categories 

Accounts  3 

Facilities  7 

Material  22 

Military  Operations  12 

Personnel  5 

The  problem  that  arises  from  using  just  any  one  of  the 


classification  schonss  by  itself  is  that  the  logistics 
engineer  has  no  ieeediate  means  to  identify  a  model  that  is 
used  in  the  specific  phase  of  a  system's  life  cycle  and 
Mhich  performs  a  particular  type  of  analysis  and  which  uses  a 
particular  solution  technique. 

Interviews  conducted  suggest  that  logistics  engineers 
use  only  several  factors  in  determining  which  model  to  use 
for  analysis.  Not  suprisingly,  which  factors  are  considered 
important  varies  among  logistics  engineers  (for  example,  ease 
of  use,  availability,  and  solution  technique). 

Me  choose  to  represent  the  appropriateness  of  a  model 
for  performing  the  desired  analysis  as  a  function  of  n 
variables* 

-  f  Csllt  m^2«  •••  Xjn)  for  the  i  th  model  (1) 

being  considered 

Value  R|  represents  a  rating  assigned  to  the  i 'th  model  and 
each  variable  x4j  represents  various  characteristics  of  the 
model  that  the  logistics  engineer  considers  important.  There 
exist  several  methodologies  for  implementing  a  function  of 
this  form. 

First,  one  could  describe  the  set  of  characteristics 
for  each  model  under  consideration  and  apply  the  function  to 
the  set.  The  models  yielding  a  value  greater  than  or  equal 
to  a  minimum  standard  rating  would  then  be  considered  appro¬ 
priate  for  performing  the  desired  analysis. 

A  second  method  would  be  to  describe  the  function  in 


t(TM  of  a  decision  tree  where  aach  variabla  raprasants  a 
noda  of  the  traa.  This  mathod  becomes  vary  difficult  to 
implement  as  tha  nuabar  of  branchas  incraaaa. 

Wa  can  anhanca  tha  usafulnass  of  tha  rating  function  by 
redafining  tha  function  using  two  dassas  of  variablasi 
critical  and  noncritical.  Tha  function  now  takas  tha  form 

Rj  •  f  i «  •  ••  Vi l »  •**  yia^  12) 

Each  raprasants  a  critical  variabla.  A  critical  variabla 
is  a  char actari stic  that  if  not  prasant  in  tha  aodal  forcas 
tha  rating  Rj  to  zaro.  Each  y^j  raprasants  a  noncritical 
variabla.  A  noncritical  variabla  is  a  char actari stic  that 
aakas  tha  usa  of  tha  aodal  dasirabla  to  tha  logistics  engin- 
aar ,  but  doas  not  nagata  tha  usa  of  tha  aodal  if  not  prasant. 

This  dafinition  craatas  tha  problaa  of  dataraining  which 
variablas  ara  critical  and  which  anas  ara  noncritical.  This 
is  not  a  naw  problaa)  as  aantionad  wa  found  littlo  agraaaant 
on  this  mattar  in  tha  intarviaws  wa  conducted.  Ona  is  also 
faced  with  tha  quantification  of  these  variablas.  So  tha 
function  wa  ara  dascribing  is  not  a  numerical  function  but 
tha  decision  process  tha  logistics  engineer  uses  to  select  a 
model  to  par form  tha  desired  analysis.  Paul son ,  Wains,  and 
Zacks  accurately  describe  tha  situationi  "It  is  incumbent 
upon  the  decision  makar  to  be  sure  ha  has  selected  tha  proper 
tools  for  the  tasks  C32il41."  With  this  thought  in  mind  wa 
offer  tha  following  questions  based  upon  various  opinions  put 


class  o-f  variables  that  partain  to  ths  suitability  of  using 
tha  modal  in  a  CAD  anvironmant.  Tha  naw  function  would  hava 
tha  following  forms 

Rj2^  m  * <Kil»  •••  xin»  Vii»  ^io*  *il*  '  •  •  *ik^ 

Tha  valua  Rjj  raprasants  our  original  valua  R  which  was  dafinad 
to  ba  tha  rating  of  appropriatanass  of  tha  modal  to  parform 
tha  dasirad  analysis.  Valua  R^  raprasants  a  rating  of  tha 
suitability  of  tha  modal  to  operate  in  a  CAD  environment. 

Each  z^j  represents  a  variable  to  ba  used  in  determining  this 
suitability  valua.  Tha  following  questions  represent  possible 
variables  of  the  rating  functions 

CAD  Variables. 

1.  Is  tha  model  interactive? 

-  If  not,  can  it  bo  made  interactive? 

2.  Are  the  results  of  tha  model  representable  in 
graphical  form? 

3.  Is  the  run  time  of  tha  modal  of  a  short  to  medium 
duration  (1  to  S  minutes)? 

4.  Does  tha  model  require  data  from  the  CAD  data  base? 

5.  Is  the  modal  compatible  with  the  CAD  hardware  and 
software? 

Three  major  ideas  should  be  extracted  from  the  preceding 
discussions 

-  The  number  of  variables  that  come  into  play  in  the 
selection  of  a  model  to  perform  a  particular  type  of  analysis 


-  The  varying  classification  schemas  focus  only  upon 
ana  major  aspsct  of  a  modal  at  a  time,  thus  hindering  tha 
logistics  anginaar  in  his  dacision  procaas  of  salacting  a 
modal . 

-  Thar a  exist  Mi da  and  varying  opinions  about  which 
char actor i sties  of  a  modal  should  bs  usad  in  tha  sslactian 
procsss. 

With  thass  idaas  impart ad  wa  now  turn  our  attantion  to  soma 
of  tha  prablams  and  limitations  of  using  modals. 

Pr obi sms  and  Limitations 

A  modal,  whathor  a  logistics  or  anginomring  modal,  is  an 

abstraction  of  raality}  therefore,  inharont  prablams  and 

limitations  ara  assoc i at ad  with  its  usa.  Ona  of  tha  most 

limiting  factors  ancountorad  is  tha  data  tha  modal  procassas. 

Data  raquiramants  vary  graatly  from  modal  to  modal 
....  Whatavor  its  raquiramants,  howavar ,  a  mod¬ 
al  *s  affacti vanass  is  dapandant  upon  tha  quantity 
and  quality  of  tha  data  aval labia  to  driva  it  C32i71. 

Sonar ally,  tha  furthar  tha  systam  has  progrossad  through  tha 
dasign  procaas  tha  mors  data  is  available  to  procsss.  Tha 
accuracy  of  data  also  iaprovas.  As  wa  attempt  to  move  in  tha 
other  direction  (earlier  in  tha  design  stages),  data  availa¬ 
bility  and  accuracy  become  limiting  factors  tha  model  must  be 
able  to  handle.  Fortunately,  methodologies  are  being  devel¬ 
oped  to  aid  tha  logistics  engineer  in  overcoming  these  prob¬ 
lems.  For  example,  a  logistics  risk  assessment  methodology 


described  by  Wood  (44)  establishes  data  estimates  and  assesse 

assoc  i  at  ad  risks  of  using  thsss  sstimatss.  Wood  offers  the 

following  Motivation  for  using  such  methodologies  (44:1): 

The  objectives  of  a  logistics  risk  assessment  meth¬ 
odology  are  toi  (1)  generate  an  acceptable  and 
supportable  point  estimate  rather  than  a  composite 
of  subjective  estimates  which  is  difficult  to  jus¬ 
tify,  (2)  provide  management  with  an  associated  risk 
assessment  of  given  point  estimate,  (3)  provide  a 
consistent  methodology  for  adjusting  the  initial 
point  estimates  as  hardware  definition  reduces  the 
ranges  of  realistic  parameters,  and  (4)  provide  a 
computerized  model  for  evaluating  complex  interre¬ 
lationships  contributing  to  resultant  point  estimate. 

It  should  be  noted  that  the  availability  of  only  estima¬ 
ted  data  should  not  stop  one  from  using  models  for  analysis. 
The  user  needs  only  to  understand  the  limitations  imposed  by 
the  data. 

Even  when  the  uncertainty  cannot  be  easily  quanti¬ 
fied,  models  can  be  used  to  explore  system  design/ 
support  cost  interactions  and  thus  define  at  least 
the  desirable  ranges  of  system  parameters  C32s473. 

Another  problem  associated  with  using  models  is  the 

requirement  for  the  logistics  engineer  to  understand  how  the 

model  treats  a  particular  variable.  For  example,  if  an 

output  is  computed  from  data  estimates,  the  output  will  be  an 

estimate  of  less  precision  <5i27).  Considering  the  number 

of  variables  passible  this  can  be  a  large  task.  Table  1 

gives  a  good  indication  of  the  numerous  variables  a  model  may 


process 


TABLE  I 


Logistics  Modal  Variables  (32i8> 


It  Ml 

Unit  Cost 
Reliability 
Weight 
Volume 

Procurement  lead  time 
Procurement  cost 
R  and  D  cost 

System 

Program  for  utilization 
Seographic  deployment 
Force  size 
Force  life 
OR  rate 

On-equipment  maintenance  cost 
Training  cost 
Interest  rate 

Stock  paints 
Spares  level 
Supply  effectiveness 
Supply  administration  cost 
Reorder  policy 


Repair  points 

Manhours  to  repair 
Maintenance  skills 
Parts  cost /repair 
Labor  rate 
Repair  cycle  length 
Order  and  shipping  time 
NRTS  rate 
Condemnation  rate 
Distance  for  next  echelon 
Packing  cost 
Shipping  cost 
AGE  cost  (acquisitiont 
installation,  0  and  M) 
AGE  weight  and  volume 
AGE  quantity 
Facilities  cost 
Technical  data  pages 
Technical  data  cost 

Maintenance  postures 


A  problem  also  arises  in  data  compatibility.  Data  may 
be  available  but  not  in  a  form  usable  by  the  model.  Proces¬ 
sing  the  data  to  obtain  the  correct  form  could  be  expensive 
or  even  worse  cause  the  accuracy  of  the  data  to  be  diluted. 

Besides  data  problems,  Blanchard  offers  two  additional 
problems  stemming  from  the  use  of  models  (4:405): 

1.  There  is  a  chance  the  logistics  engineer  may 
become  so  enamored  with  the  model  that  his  concept  of  the 
problem  becomes  distorted. 

2.  Models  are  only  tools  and  not  a  substitute  for 
experience  and  judgment. 


Decision  Function  Formulation 

With  thm  conceptualization  of  thm  decision  process  behind 
us,  it  is  noM  time  to  turn  our  attention  to  a  generalized 
formulation  of  this  function.  The  decision  function  takes  the 
following  form: 


0  if  xt j  H  Xj  -0 


for  any  j>lf2y...  n 


else 


.j  cj  rim  e. 


1  if 


Vij 


j-i 


j  -i 


where  c4  ■  <  el 
J  *  0 


1  if  z4j  «  Yes 


R41  »  the  appropriateness  rating  of  the  i *th  model 

R42  ■  CAD  adaptability  rating  of  the  i 'th  model 

x4j  ■  set  of  attributes  representing  the  j'th  critical 
variable  of  the  i 'th  model 

y44  ■  attribute  representing  the  j'th  noncritical 
variable  of  the  i 'th  model 

z4j  *  attribute  representing  the  j'th  CAD  variable  of 
the  i 'th  model 

Xj  «  set  of  allowable  values  for  the  j'th  critical 
variable 

aj  *  weight  given  to  the  j'th  noncritical  variable 


bi  «  weight  given  to  the  j'th  CAD  variable 


A  specific  example  Mill  aid  in  understanding  hOM  this 
function  can  be  used.  The  follOMing  example  is  aimed  at 
identifying  a  model  that  is  suitable  to  be  used  in  the  con¬ 
ceptual  design  phase  and  at  the  same  time  lends  itself  for 
incorporation  into  a  CAD.  Data  used  in  this  formulation  is 
taken  from  Appendix  C.  Appendix  C  gives  a  summary  the  two 
models  considered.  The  data  listed  for  each  model  Mas  synthe¬ 
sized  from  reports  about  the  particular  model  and  is  not  in¬ 
tended  to  serve  as  a  detailed  description  of  the  capabilities 
of  the  model.  It  also  should  be  noted  that  one  is  not  limited 
to  using  only  the  variables  listed  beloe  but  can  define  any 
number  of  variables  in  any  class  for  which  data  can  be  gathered 
for  each  model . 

The  critical  variables  and  allowable  values  for  these 
variables  were  defined  as  follows! 

1.  Xjj  represents  the  set  of  life  cycle  phases 
to  which  the  i *th  logistics  model  is  appropriate  and 

2.  xi2  represents  the  set  of  the  types  of 
analysis  the  i 'th  logistics  model  performs. 

3.  Xj  -  {Conceptual  Phase > 

4.  X 2  ■  {Reliability  Analysis,  Spares  Analy- 

ysis.  Life  Cycle  Cost  Analysis,  and  Maintainability  Analysis} 

Noncritical  variables  were  defined  as  follows: 

1.  y4 j  represents  the  answer  to  the  question:  Is 
the  solution  technique  appropriate  to  the  type  of  analysis 
being  performed? 


2.  yi2  represents  tha  answar  to  tha  quamtioni  Is 
data  aval labia  in  this  life  cycla  phasa  to  run  tha  modal? 

3.  yi3  raprasants  tha  answar  to  tha  questions 
Will  tha  modal  accapt  asti mated  data? 

4.  yi4  represents  tha  answer  to  tha  question!  Is 
estimated  data  suitable  to  the  level  of  analysis  being  par- 
farmed? 

3.  yi5  represents  the  answer  to  tha  questions  Is 
tha  modal 's  output  in  a  form  usable  to  tha  logistics 
engineer? 

6.  yi6  represents  tha  answar  to  the  questions 
Does  the  model  perform  multiple  types  of  analysis? 

7.  yi7  represents  the  answer  to  the  questions 
Can  the  modal  operate  without  special  peripheral  units? 

8.  yi8  raprasants  the  answer  to  the  questions 
Does  documentation  for  the  model  exist? 

CAO  variables  were  defined  as  follows! 

1.  z41  represents  tha  answar  to  the  questions  Is 
the  model  interactive? 

2.  represents  the  answar  to  the  questions 
Can  the  model  be  made  interactive? 

3.  represents  the  answer  to  the  questions 
Are  the  results  of  the  model  representable  in  graphical 
form? 

4.  zi4  represents  the  answer  to  the  questions  Is 
the  run  time  of  the  model  of  a  short  duration? 


5.  zi5  represents  tha  answer  to  tha  quastioni 
Will  tha  modal  accapt  input  -From  tha  CAD  data  base? 

6.  zi6  raprasants  tha  answar  to  tha  quastioni 
Will  the  model  run  on  tha  CAD  system  or  an  interfaced  micro¬ 
computer? 

To  simplify  calculations  for  this  example  each  a j  and  bj 
was  defined  as  one.  Using  tha  data  from  Appendix  C  for  tha 
Reliability  Maintainability  Cost  Modal  (RMCM)  and  tha  Network 
Repair  Laval  Analysis  Modal  (NRLA) ,  wa  can  obtain  tha  values 
for  each  variable. 


Variable 

RMCM 

NRLA 

*il 

Conceptual 

Development 

xl2 

Reliability 

Laval  of  Repair 

yil 

Yes 

Yes 

yi2 

Yes 

No 

yi3 

Yes 

Yarn 

yi4 

Yes 

No 

yi5 

Yes 

Yes 

yi6 

Yes 

No 

yi7 

Yes 

Yes 

yiB 

Yes 

Yes 

zil 

Yes 

No 

zi2 

Yes 

Yes 

zi3 

Yes 

Yes 

zi4 

No 

No 

zi5 

Yes 

Yes 

zi6 

Yes 

Yes 

Applying  tha  decision 

function  (page 

28)  to  the  above  values T 

the  function  yields  a 

value  of  (8,  5) 

for  RMCM  compared  to  a 

value  <0,  4)  obtained  for  NRLA.  Tha  first  value  indicates 
that  RMCM  satisfies  the  critical  variables  and  satisfies  many 
of  the  noncritical  variables.  The  first  value  for  NRLA 


indicates  the  model  does  not  meet  all  the  critical  variables. 


The  next  value  for  each  of  tha  two  modal*  indicate*  aach 


modal  ha*  potantial  for  intarfacing  with  a  CAD  systam. 

•nummary 

Wa  prasantad  in  this  chapter  what  wa  balieva  is  an  accu¬ 
rate  representation  of  some  of  tha  difficulties  a  logistics 
engineer  faces  in  selecting  and  using  logistics  models.  Wa 
also  presented  a  method  for  ampirical  evaluation  of  tha  appro 
pr lateness  of  a  model  to  perform  the  desired  analysis  and  to 
identify  models  suitable  for  incorporation  into  a  CAD  system. 

We  now  turn  our  attention  to  the  topic  of  mi crocomputers 
to  better  understand  their  capabilities  and  limitations. 


Ovtrviiw 

The  mi cr ocomputer  offers  thm  logistics  snginssr  s  chance 
to  incrsmss  productivity  Just  as  the  timssharing  terminal  did 
a  dmcadm  ago.  Smvsral  logistics  models  have  been  implemented 
on  microcomputers  but  these  models  mere  scaled  down  versions. 
These  undertakings  have  also  failed  to  produce  documentation 
as  to  the  problems  encountered  in  using  microcomputers.  Why 
did  the  models  need  to  be  scaled  down?  What  was  the  impact 
of  the  microcomputer *s  memory  capacity?  What  hardware  limi¬ 
tations  were  encountered?  What  software  problems  existed? 

We  attempted  to  get  answers  for  some  of  these  questions  be¬ 
fore  we  began  modifying  the  Reliability  Maintainability  Cost 
Model;  hence,  this  chapter. 

What  is  the  Question 

The  last  decade  has  seen  a  unprecedented  growth  in  micro¬ 
computer  technology.  This  growth  has  transformed  microcom¬ 
puters  from  toys  into  productive,  useful  tools.  This  growth 
has  also  led  to  the  "gradual  disappearance  of  demarcation 
lines  between  mainframe  computers  and  microcomputers  £36:256]" 
and  has  fueled  the  debate  on  whether  or  not  mi crocomputers 
will  replace  mainframe  computers.  Heally  suggests  that  this 
is  the  wrong  question  to  ask:  "technological  revolutions  are 
with  us  already;  computing,  however,  is  about  solving  problems 
and  providing  services,  not  just  about  technology  £19:120]." 


If  ms  focus  on  solving  problems,  an  entire  new  set  of 
questions  can  be  raised i 

1.  Why  use  microcomputers  instead  of  mainframe 

computers? 

2.  What  type  of  problems  should  be  solved  on 
mi crocomputer s? 

3.  What  are  the  limitations  encountered  when  using 
mi cr ocomput er s? 

In  answering  the  first  question,  we  find  there  are 
several  advantages  microcomputers  offer  over  the  use  of 
mainframe  computer si 

-  "Cost  is  perhaps  one  of  the  strangest  arguments 

for  using  a  mi crocomputer  to  do  engineering  and  scientific 

problem  solving  C38i73."  This  incentive  will  continue  to 

increase  as  microcomputers  *  prices  fall  due  to  advancing 

technology.  The  cost  per  byte  of  memory  capacity  for  a 

mi crocomputer  is  five  cents  and  for  a  mainframe  computer  is 

forty  cents.  A  cost  comparison  of  processing  speed  per 

dollar  is  even  more  dramatic! 

The  CPU  processing  time  for  a  large  computer  is 
about  an  order  of  magnitude  faster  than  that  for 
a  microcomputer,  whereas  the  overall  purchase 
price  is  three  orders  of  magnitude  greater  C38i73. 

Miscellaneous  costs  of  running  a  mi cr ocomput er  are  also  less 

than  those  of  operating  a  mainframe  computer.  For  example, 

support  equipment  (such  as  special  air  conditioning  units) 

is  not  need  as  microcomputers  function  in  almost  any  reason¬ 


able  environment 


Sines  microcomputers  arm  connected  to  CRT  screens 
or  to  sloM-speed  printers,  it  Mould  seem  prudent  to 
restrict  their  use  to  problems  requiring  moderate 
amounts  of  overall  processing  time  and  moderate 
amounts  of  output  £38:73. 

We  believe  that  these  opinions  are  not  an  accurate 
representation  of  the  capabilities  of  a  microcomputer .  Baer 
of-fers  a  -flexible  opinion  concerning  the  capabilities  of 
mi crocomputers: 

...  if  computations  are  to  be  performed  primarily 
on  16-bit  or  larger  entities  micros  should  not  be 
be  selected.  This  might  be  wrong  by  the  time  this 
book  is  published  but  then  the  same  argument  could 
be  repeated  by  changing  16  to  32  C2i4333. 

Time,  as  alluded  to  by  Baer,  has  allowed  technology  to  create 

a  variety  of  mi crocomputer s  that  are  capable  of  handling 

programs  that  once  were  feasible  to  run  only  on  a  mainframe 

computer.  Current  mi cropr ocessor  technology  has  produced  five 

classes  of  computers  (36:237): 

1.  Microcontrollers:  4-  to  8-bit  processors  used 
in  process  control  applications,  toys,  and  calculators.  They 
are  capable  of  handling  only  small,  well-defined  tasks. 

2.  Microcomputers:  more  versatile  than  microcon¬ 
trollers.  It  is  in  this  class  that  one  finds  the  personal 
computers  such  as  the  VIC-20,  Commodore  64,  and  TRS-80  Model 
4.  Based  on  8-bit  processors  (for  example,  8080,  Z80,  and 
M6800) ,  these  machines  are  suited  for  use  as  word  processors, 
smart  terminals,  and  educational  tools.  The  processors  of 
this  class  have  a  memory  addressabi lity  of  only  64k  bytes, 
which  limits  the  ability  of  these  machines  to  handle  large 


and  mors  complex  problems 


3.  Mini microcomputers!  us*  th*  8088,  8086,  and 
80186  -family  of  processors.  Th*s«  processors  are  capable  of 
performing  10®  to  10^  operations  per  second  and  have  the 
ability  to  address  1  megabyte  <1  million  bytes)  of  memory. 

The  IBM-PC  and  TRS-B0  Model  2  computers  belong  to  this  class 
of  microprocessors. 

4.  Maxi microcomputers!  based  on  processors  such  as 
the  Z8000.  MC68000,  and  the  80286. 

5.  Super microcomputer si  use  the  i APX  432  or  NS16032 
processors. 

The  hardware  reasons  behind  shunning  microprocessors  for 
use  in  large  applications  have  been  focused  in  the  following 
areas  (38i9)t 

-  processor  speed, 

-  memory  addressability, 

-  accuracy  and  speed  of  numeric  computations  and, 

-  input /output  capabilities. 

The  last  three  classes  of  microprocessors  overcome  these 
barriers.  The  remainder  of  this  section  focuses  on  these 
barriers  in  relation  to  the  last  three  classes  of  micro¬ 
processors.  Also  note  the  term  mi crocomputer  will  be  used 
to  represent  a  microprocessor  from  any  of  the  five  classes. 

Processor  Speed.  Consider  the  microcomputer  config¬ 
uration  set  forth  in  Chapter  1,  which  is  a  member  of  class  3. 
The  IBM  Personal  Computer  uses  an  Intel  8088  microprocessor . 


i 


In  terms  of  raw  computational  capability  the  IBM-PC 
has  the  ability  to  outperform  by  a  wide  margin  the 
previous  generation  of  personal  computers.  A  com¬ 
puter  graphics  benchmark  which  scales  16,384  pairs 
of  16  bit  integers  by  a  fractional  scale  factor  runs 
ten  times  faster  on  a  5  MHz  8008  than  on  a  6  MHz 
Z80B  C 17s 1343. 

This  speed  comparison  is  in  relation  to  a  microcomputer  from 
class  2.  Turning  around  and  looking  at  how  the  IBM-PC 
compares  to  mini  and  mainframe  computers  we  can  see  that  the 
implementation  of  large  processor  bound  applications  becomes 
feasible  in  this  class  of  microcomputers.  Table  II  displays 
the  results  of  an  IBM-PC  versus  various  minicomputers  using 
the  Whetstone  test.  This  test  was  developed  by  Wichman  and 
Curnow  and  performs  integer  and  real  number  calculations  in 
a  variety  of  loops  and  subroutine  calls  <43i4B>. 


TABLE  II 

IBM-PC  versus  Minicomputer  Comparison  <43* 49) 


Machine 
IBM-PC  +  8087 
PDP  11/34 
POP  11/44 
VAX  11/780 


Speed 

1000  Whetstone 
Instr/sec 

72.8 

181.0 

252.9 

668.3 


In  a  test  performed  by  BYTE  magazine  CALPASS3,  a  program 
used  to  predict  energy  use  in  conventional  and  passive  solar 
buildings  was  converted  to  run  on  an  IBM-PC.  Runtime  for 
CALPASS3  approaches  one  minute  on  a  large  mainframe  compared 
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.  .  .  demonstrate*  that  it  is  possible  to  integrate 
the  -full  -functionality  of  a  high-end  32-bit  minicom¬ 
puter  or  mainframe  computer  onto  a  small  number  of 
chips  in  a  conservative  NMOS  process  and  achieve  a 
perf ormance-to-price  ratio  Mhich  compares  quite 
favorably  with  such  systems  C21*5573. 

An  attractive  perf ormance-ta-price  ratio  is  achievable. 
Stritek,  Inc.,  of  Cleveland  has  developed  processor  circuit 
cards  utilizing  the  16032  or  80286  processors  that  plug  into 
an  IBM-PC  which  effectively  converts  it  from  a  class  3  micro¬ 
computer  to  a  class  5  microcomputer  for  a  cost  of  less  than 
*2500  (12;  22). 

Memory  Addressabi 1 i tv.  It  may  be  the  increase  in 

microprocessor  speed  that  makes  running  a  large  program 

practical  on  a  microcomputer ,  but  it  is  the  increase  in  the 

processor's  memory  addressabi 1 i ty  that  makes  it  possible. 

The  8088,  8086,  and  the  80186  processors  are  capable  of 

addressing  1M  bytes  of  memory.  This  is  16  times  the  memory 

capacity  that  a  processor  of  class  2  can  address.  This  fact 

becomes  even  more  remarkable  when  we  consider  that  the  IBM 

360/30  has  only  65K  bytes  of  memory  and  the  IBM  1401  had  only 

12K  bytes  of  memory.  Processors  of  class  4  and  5  are  even 

more  powerful  supporting  virtual  memory  implementations. 

Virtual  memory  allows  you  to  combine  a  minimum  of 
expensive  primary  storage  (main  memory)  with  lower — 
cost  secondary  memory.  In  this  way,  you  can  take 
full  advantage  of  extremely  large  operating  system 
software  and  applications  programs  (now  offered 
on  large  mainframes)  without  worrying  about  the 
hardware  limitations  of  your  systems  C 25: 53 D. 

Table  III  displays  the  memory  capacities  for  various  processors. 
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80186 

1M 

80286 

16M 

16 

16032 

BM 

16M 

i APX  432 

16M 

10248 

It  should  bs  apparent  that  ths  memory  capacity  of  a 
microcomputer  no  longer  prsssnts  a  barrier  to  using  the 
mi cr ocomputer  for  large  applications. 

Numeric  Capability.  Numeric  computational  accuracy  is 
another  concern  in  computer  applications.  A  typical  mainframe 
computer  has  a  32-bit  word  <4  bytes)  which  is  used  to  store  a 
single  precision  floating-point  number.  Double  precision  num¬ 
bers  require  64-bits.  Mainframe  computers  also  have  special 
arithmetic  processors  that  efficiently  process  floating-point 
calculations. 

Earlier  microcomputer  architecture  did  not  lend  itself 
to  numerical  appliceMons  for  two  reasons!  memory  capacity 
and  numeric  processing  speed.  Applications  requiring  large 
arrays  could  not  fit  into  memory.  For  example,  if  you  needed 
to  multiply  two  100  by  100  single  precision  matrices  together, 


array  storaga  Mould  require  80,000  bytaa.  Evan  if  tha  arrays 
Mara  small  anough  to  fit  into  mamory,  floating-point  calcula¬ 
tions  Mara  par for mad  via  softMara  emulation  which  created  an 
overhead  that  effectively  nullified  any  significant  numerical 
analysis  programs  from  being  implemented. 

As  mentioned,  class  3,  4,  and  5  microcomputers  have 
overcome  the  memory  barrier.  They  also  have  overcome  the 
speed  problem  of  numeric  processing  Mith  the  development  of 
special  numerical  data  processors  (NOP)  Mhich  are  specific¬ 
ally  designed  for  high  performance  numeric  processing. 

Intel *s  8087  NOP  is  one  of  these  processors.  The  8087 
NOP  acts  as  a  coprocessor  performing  all  floating-point 
calculations.  The  8087  NOP  also  frees  the  programmer  from 
Morry  about  accuracy  as  all  computations  are  performed  using 
80-bits,  alloMing  the  8087  NOP  to  represent  numbers  main¬ 
taining  64-bits  of  accuracy  Mith  poMers  as  large  as  10*932. 
Few  applications  will  exceed  this  capability.  The  8087  NDP 
is  also  efficient.  Table  IV  gives  comparisons  of  the  speed 
of  selected  instructions  of  the  8087  NDP  compared  to  software 
amulation  using  an  8086. 


TABLE  IV 


Floating-Point  Exocut ion  Spaed 
In  Microseconds  (45t 3-181) 


Instruction 

8087  NDP 

8086  Emulation 

Add/Subtract 

17 

1,500 

Multiply  (single 
precision) 

19 

1,600 

Multiply  (extended 
precision) 

27 

2,100 

Divide 

39 

3,200 

Compare 

9 

1,300 

Square  Root 

36 

19,600 

Tangent 

90 

13,000 

Exponentiation 

100 

17,100 

The  8087  NDP  is  not  tho  only  numeric  date  processor  available. 
The  80287  and  16081  NDPs  are  used  in  conjunction  with  the 
80286  and  the  16032 ,  respectively. 

Input /Output.  The  final  hurdle  of  implementing  large 
programs  on  microcomputers  deals  with  input /output  (10)  capa¬ 
bilities.  10  is  discussed  from  two  viewpointsi  the  data  bus 
and  the  physical  10  devices. 

The  data  bus  links  together  the  mi cr oprocessor ,  memory, 
and  10  devices  and  establishes  the  maximum  data  transfer  rate 
between  components.  Faster  and  larger  mass  storage  devices 
have  been  developed,  but  one  should  not  expect  to  improve  the 
performance  of  a  program  by  simply  attaching  these  faster 


divicM  to  the  computer.  An  example  Mill  larva  to  demon¬ 
strate  this  idaa.  Tha  Minchaster  disk  usad  in  tha  IBM-XT  is 
capabla  of  transfarring  data  at  a  spaad  of  625k  bytas  par 
sacond  (46*1-196).  Tha  data  bus  of  tha  IBM-XT  ia  capabla  of 
handling  data  transf ar  at  a  maximum  of  only  350K  bytas  par 
sacond |  therefore,  attaching  a  disk  driva  capabla  of  avan 
fast ar  spaads  accompli shas  nothing.  In  raality  wa  avan  fail 
to  driva  tha  data  bus  at  its  maximum  rata  bacausa  tha  disk 
control lar  oparatas  at  spaads  slOMar  than  tha  bus.  What  ms 
avantually  achiava  is  an  avaraga  data  transfar  rata  bat Naan 
60K  to  90K  bytas  par  sacond  (9*307). 

Thara  are  savaral  ways  to  incraasa  this  avaraga  transfar 
rata.  First,  a  fas tar  disk  controller  can  ba  produced  but 
this  leaves  us  bound  by  tha  maximum  spaad  of  tha  data  bus. 
Second,  if  a  faster  controller  is  produced,  one  could  than 
make  use  of  tha  faster  data  buses  found  in  class  4  and  3 
microcomputers.  Third,  software  techniques  of  caching*  and 
spooling  can  ba  implemented  but  again  we  are  bound  by  tha 
maximum  rate  of  tha  data  bus. 

Each  of  tha  previously  mentioned  solutions  would  in¬ 
crease  tha  data  transfar  rate  but  does  not  allow  for  multiple 
simultaneous  data  transfers  as  found  on  mainframe  computers. 

*A  software  program  which  maintains  blacks  of 
frequently  used  disk  data  in  mamory  so  they  will  be  readily 
available  for  processing  (12:56). 


1.  operating  systems, 

2.  supporting  languaga  procassors,  and 

3.  tha  application  programs. 


Tha  last  aspact  will  not  ba  discussad  hara  but  is  covarad  in 
tha  next  chaptar  daaling  with  program  implamantation. 

Qoaratino  Svstams.  It  is  tha  rasponsibility  of  tha 
oparating  systam  to  perform  10,  maintain  file  structures,  and 
manage  memory  allocation.  Given  these  tasks,  operating  sys¬ 
tems  "often  determine  the  ultimata  potential  of  a  computer 
system  £33:1881."  Only  recently  have  operating  systems  for 
microcomputers  become  sufficiently  sophisticated  to  properly 
handle  the  hardware  at  their  disposal.  Slow-spaed  devices 
are  now  being  spooled,  which  makes  more  efficient  use  of  the 
processor.  Caching  techniques  have  been  implemented  to 
achieve  greater  data  transfer  rates  to  and  from  mass  storage 
devices.  Hierarchical  files  structures  are  also  allowed  by 
several  operating  systems. 

Memory  management  has  also  taken  a  giant  step  forward 
with  the  implementation  of  memory  overlay  structures.  For 
class  3  microcomputers  this  was  an  important  step  since 
mi croprocessor s  in  this  class  do  not  support  virtual  memory. 

Language  Processors.  As  with  operating  systems, 
language  processors  have  also  improved.  Several  years  ago 
the  only  high-level  language  available  on  a  microcomputer  was 
BASIC.  Today,  one  has  the  choice  of  FORTRAN,  Pascal,  C,  LISP, 
and  APL.  The  availability  of  these  language  processors  has 


V.  Implementation  of  Two  Logistics  Model  s 
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This  chapter  documents  ths  events  that  took  place  during 
the  modification  of  the  Reliability  Maintainability  Cost 
Model  (RMCM)  and  the  Network  Repair  Level  Analysis  (NRLA) 
model  to  run  on  the  microcomputer  described  in  Chapter  1.  The 
events  identified  during  the  conversion  process  by  no  means 
represent  an  all-encompassing  experience  but  do  serve  as  a 
starting  point  for  future  endeavors. 


Model  Selection 

Me  began  in  December  1983  trying  to  locate  source  code 
and  documentation  for  logistics  models  dealing  with  product 
design.  We  first  turned  to  the  DLSIE  catalogues  of  logistics 
models.  These  catalogues  are  published  on  a  quarterly  basis 
and  contain  the  descriptions  of  newly  developed  and  in-work 


logistics  models.  Each  catalogue  covers  several  categories 
of  models  (for  example,  personnel,  training,  and  maintenance) 
We  identified  several  potential  candidates  and  ordered 
additional  documentation.  Unfortunately,  the  documentation 
provided  was  only  a  more  detailed  description  of  the  model 
including  the  assumptions  and  mathematical  formulations 
used.  Computer  source  code  was  not  provided.  Calling  the 
contacts  listed  in  the  DLSIE  catalogues  we  found  we  could 
obtain  source  code  listings  for  several  of  the  models  while 
source  code  listings  for  other  models  were  held  under 
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proprietary  rights. 

Ms  continued  our  search  by  talking  to  instructors  in  the 
School  of  Systems  and  Logistics  and  personnel  at  the  Human 
Resources  Laboratory  as  to  what  logistics  models  were  being 
used  at  Wright-Patterson  AFB.  It  was  though  these  conversa¬ 
tions  that  the  RMCJ1  and  the  NRLA  models  were  identified  to  us 
as  not  only  being  suitable  for  testing  the  capacity  of  a 
microcomputer  to  handle  large  logistics  models  but  also  could 
be  used  to  validate  the  ability  of  our  decision  function  in 
selecting  an  appropriate  model.  We  also  received  the  added 
benefit  that  computer  source  code  for  both  models  were  avail¬ 
able.  Source  code  for  the  RMCM  was  located  on  the  CDC  Cyber 
6600  mainframe  computer  and  the  source  code  for  the  NRLA 
model  was  located  on  the  Harris  500  mainframe  computer. 

Obtaining  the  Source  Code 

Even  though  the  source  code  was  available,  we  could  not 
access  it  because  we  lack  accounts  for  both  mainframe  compu¬ 
ters.  Though  it  was  not  particularly  difficult  to  get  an 
account  as  AFIT  students,  it  still  took  us  a  week  before  all 
the  paperwork  was  completed. 

After  obtaining  account  numbers,  we  discovered  we  still 
did  not  have  authorization  to  read  the  source  files  as  they 
were  protected  by  passwords.  This  required  us  to  contact  the 
owners  of  the  files  for  permission  and  luckily  they  were  kind 
enough  to  allow  us  access. 

With  access  allowed,  we  opted  to  use  telecommunications 


to  download  both  models  to  tha  microcomputer .  This  eliminated 
the  problem  of  entering  the  source  code  by  hand,  which  is  a 
tedious  process  and  prone  to  errors.  Although  telecommunica¬ 
tions  saved  us  the  undesirable  task  of  entering  the  code  by 
hand,  telecommunications  is  not  without  its  drawbacks: 

1.  The  microcomputer  user  must  have  an  account  on 
the  mainframe  computer. 

2.  The  microcomputer  and  mainframe  computer  must 
have  telecommunications  capabilities. 

3.  Data  transfers  at  300  baud  are  slow.  Even 
at  the  faster  speed  of  1200  baud,  data  transfers  of  large 
programs  can  be  quite  time-consuming.  The  RMCM  model 's  file 
size  was  approximately  376K  bytes  and  the  data  transfer  took 
almost  45  minutes. 

4.  Data  transfers  using  telecommunications  are  not 
always  error-free.  In  the  transfers  of  both  models  we  were 
fortunate  in  that  the  errors  generated  were  obvious  as  they 
were  of  the  garbled  data  type  versus  dropped  characters. 


What  Do  They  Do? 

With  the  source  code  for  both  models  downloaded  to  the 
microcomputer ,  we  turned  our  attention  to  understanding  just 
how  the  programmers  made  the  models  do  what  they  were  sup¬ 
posed  to  do.  We  started  with  the  RMCM.  Sitting  down  with 
the  listing  of  the  program  and  the  documentation  manuals,  we 
began  to  trace  line-by-line  through  the  program  to  under¬ 
stand  how  the  program  worked.  This  was  quite  time-consuming 
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and  it  Mas  at  this  juncture  in  our  research  that  we  realized 


that  we  would  not  have  enough  time  to  process  the  NRLA  model 
in  a  like  manner.  Although,  it  took  approximately  four  weeks 
to  complete  this  process,  it  was  time  well  spent  because 
during  this  process,  we  discovered  where  the  major  thrust 
of  the  conversion  process  would  focus  —  the  translation  of 
character  string  variables. 

It  should  also  be  noted  that  this  process  was  facilitated 
by  the  abundance  of  comment  cards  found  in  the  program  list¬ 
ing  and  by  the  well-written  documentation  manuals  provided. 

With  a  basic  understanding  of  the  program,  we  began  the 
process  of  adapting  the  program  to  the  microcomputer . 

Source  Coda  Conversion 

The  particular  version  of  the  RMCM  we  obtained  was 
written  in  CDC  FORTRAN  IV  Extended.  The  following  obstacles 
were  encountered  in  the  conversion  process: 

Editing  Capabilities.  The  line  and  screen  editors 
available  for  the  IBM-PC  could  not  handle  editing  the  complete 
source  file  of  RMCMj  therefore,  it  was  necessary  to  break  the 
program  into  smaller  source  code  segments.  This  proved  to  be 
a  nuisance  in  that  it  limited  the  use  of  editing  capabilities 
such  as  global  search /rep lace  and  block  copy. 

Nonstandard  Statements.  CDC  FORTRAN  IV  Extended 
provides  for  several  statements  not  implemented  in  FORTRAN  77 
and  uses  different  syntax  structure  for  some  statements  found 
in  FORTRAN  77.  The  PROGRAM  and  OVERLAY  statements  in  CDC 
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FORTRAN  IV  Extended  have  no  counterpart  in  FORTRAN  77  but 
luckily  could  ba  disregarded  during  tha  conversion  process. 
SUBROUTINE  and  CALL  statements  allowing  for  alternate  returns 
required  modification  due  to  differences  in  syntax.  ENCODE 
and  DECODE  statements  allowed  by  CDC  FORTRAN  IV  Extended 
required  conversion  to  READ  and  WRITE  statements  using 
FORTRAN  77  internal  file  capabilities. 

Character  Data.  The  use  of  character  data  was  the  most 
difficult  problem  to  overcome  during  the  conversion  process. 
This  problem  stemmed  directly  from  the  64-bit  word  of  the  CDC 
Cyber  6600,  which  is  capable  of  storing  10  characters  per 
word.  The  IBM-PC  is  able  to  store  only  four  characters  per 
word.  The  use  of  the  CHARACTER  statement,  which  allows 
variable  length  character  strings,  provided  in  FORTRAN  77 
facilitated  the  conversion  but  in  turn  created  a  waste  of 
storage  and  hindered  run  time  efficiency. 


Program  Debugging 

With  several  FORTRAN  77  compilers  available  for  the 
IBM-PC,  it  was  necessary  to  decide  which  compiler  we  would 
use  in  the  conversion  process.  Not  all  FORTRAN  compilers 
support  a  complete  implementation  of  FORTRAN  77;  for  in¬ 
stance,  Supersoft  FORTRAN  produced  by  Small  Systems  Services, 
Incorporated,  allows  for  only  16-bit  integers  and  does  not 
support  input /output  statements  defined  by  FORTRAN  77.  We 
selected  Microsoft's  implementation  as  being  the  closest 
implementation  of  FORTRAN  77  we  could  find. 


With  the  source  coda  modified  to  FORTRAN  77  it  Mas  tima 
to  bag in  tha  procass  of  dabugging  tha  modified  varsion  of  tha 
modal.  Tha  first  stap  was  tha  elinr  tat  ion  of  tha  syntax 
arrors  craatad  during  tha  convarsion  procass.  It  was  during 
this  procass  that  tha  capabilities  of  Microsoft's  FORTRAN  77 
Version  3.1  proved  to  be  a  nuisance.  Tha  compiler  was  unable 
to  handle  large  sourca  files  and  frequently  aborted  giving 
tha  message  "internal  compiler  error."  To  avoid  this  problem 
it  was  necessary  to  further  break  tha  sourca  files  into 
smaller  segments.  Since  separata  compilations  were  required, 
tha  ability  of  the  compiler  to  check  for  differences  in  com¬ 
mon  block  sizes  and  improper  argument  types  for  subroutines 
and  functions  was  nullified.  Tha  overall  procass  of  just 
removing  syntax  errors  took  approximately  four  days. 

With  tha  syntax  errors  removed  we  ware  ready  to  begin 
operational  testing  of  the  converted  model.  Testing  was 
greatly  facilitated  by  the  presence  of  example  data  files  and 
outputs  in  the  documentation  manuals.  Besides  the  obvious 
errors  of  spelling  variable  names  incorrectly  and  misunder¬ 
standing  the  logic,  we  encountered  three  significant  pro¬ 
blem  areas: 

1.  Support  provided  by  CDC  FORTRAN  ZV  Extended  for 
disk  files  differs  from  support  provided  by  FORTRAN  77.  When 
opening  a  nonexistent  disk  file  for  output  in  FORTRAN  77,  the 
file  attribute  must  be  specified  as  NEW;  therefore,  it  was 
necessary  to  extensively  modify  the  subroutine  CHECK  to  handle 
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this  situation.  Ths  program  kspt  crashing  until  ws  idsnti-fisd 
all  ths  placas  from  which  disk  files  wars  bsing  opsnad,  and 
modified  tha  calls  to  subroutine  CHECK. 

Tha  End-Of-File  -function  also  works  differently.  Tha 
logic  in  the  program  worked  under  CDC  FORTRAN  IV  Extended, 
but  it  was  necessary  to  modify  the  program  to  handle  this 
difference.  To  alleviate  the  problem  the  end-of-file  de¬ 
tection  capability  allowed  in  READ  statements  was  used. 

2.  The  numeric  accuracy  of  the  CDC  Cyber  6600 
differs  from  the  numeric  accuracy  of  the  IBH-PC.  Using  a 
single  precision  variable,  the  Cyber  carries  fifteen  signi¬ 
ficant  digits  compared  to  seven  significant  digits  for  the 
IBM-PC.  When  using  a  microcomputer ,  this  problem  can  be 
overcome  by  performing  all  computations  in  double  precision. 
Double  precision  variables  on  a  32-bit  computer  allow  fifteen 
digits  of  accuracy  to  be  carried.  Double  precision  usage  is 
not  a  total  panacea  in  that  it  doubles  core  storage  require¬ 
ments  and  reduces  computational  speed. 

Table  V  shows  the  difference  in  accuracy  using  single  and 
double  precision  calculations.  Since  data  normally  consists 
of  only  estimates  during  the  conceptual  design  phase,  the 
user  should  note  that  computations  using  single  precision 
calculations  may  be  acceptable. 
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TABLE  V 


Comparison  of  Singls  and  Doubls  Prscision  Calculations 


Computational  Item 

Sinale 

Double 

Percent 

Chanae 

1. 

Life  Cycle  Cost 

69,931,620 

69,985,562 

.04% 

2. 

Recurring  Cost 

37,591,720 

37,625,675 

.09% 

3. 

Annual  Recurring  Cost 

2,506,115 

2,508,378 

.09% 

4. 

Non-recurring  Cost 

32,359,910 

32,359,907 

.00% 

3.  Microsoft's  FORTRAN  77  Version  3.1  uses  the 
IEEE  standard  for  representing  floating  point  numbers.  Me 
noted  this  situation  only  because  the  program  creates  two 
binary  files  to  be  used  by  a  separate  report  generator  pro¬ 
gram.  This  is  of  no  concern  as  long  as  language  processors 
supporting  this  standard  are  used,  but  it  is  a  user-beware 
situation.  For  instance,  Microsoft's  Basic  Interpreter  uses 
a  different  real  number  representation  than  the  IEEE  stan¬ 
dard,  which  effectively  prohibits  passing  binary  files  be¬ 
tween  programs  produced  by  these  language  processors. 

The  use  of  binary  files  also  made  it  difficult  to  deter¬ 
mine  if  the  correct  data  was  being  written.  Reading  a  hexi- 
decimal  data  dump  is  quite  tedious.  To  aid  in  debugging  and 
program  compatibility,  the  program  was  modified  to  support 
extra  files.  These  extra  files  are  the  ACSII  representa¬ 
tion  of  the  binary  data  files. 

With  these  three  problems  identified,  the  debugging 
process  became  an  iterative  process  of  running  the  model. 


noting  ■rrori,  determining  the  logic  fix,  modifying  the 
source  code,  and  recompiling  the  program.  The  debugging 
phase  took  the  better  part  of  three  weeks. 

Running  the  Model 

No  changes  were  made  in  the  operational  commands  of  the 
model.  The  commands  operate  as  documented  in  the  RMCM  User's 
Guide.  Input  data  file  structure  also  remains  the  same. 
Procedures  for  starting  the  model  have  been  modified  and 
reflect  operation  of  the  model  on  the  IBM-PC  using  DOS  2.0 
for  its  operating  system.  Operating  procedures  are  found  in 
Appendix  D.  Appendix  E  has  examples  of  the  model ‘s  inputs 
and  outputs  as  computed  when  run  on  the  IBM-PC. 

Summary 

The  above  discussion  represents  a  summary  of  the  activi¬ 
ties  that  took  place  in  converting  the  RMCM  from  the  CDC 
Cyber  6600  to  run  on  the  IBM-PC.  The  occurrences  of  the 
problems  mentioned  were  often  random  and  not  readily  obvious 
but  took  more  time  than  anticipated  to  overcome;  therefore, 
we  were  unable  to  modify  the  NRLA  model  to  run  on  the 


IBM-PC 


VI.  Conclusions  and  Recommendations 


Conclusions 


In  this  rassarch  we  ha vs  attsmptad  to  dovslop  a  method- 
ology  to  idantify  logistics  modal s  suitabla  for  usa  in  a  CAD 
anvironaant  and  demonstrate  tha  faasibility  of  using  a  micro— 
computar  to  run  tha  salactad  logistics  models. 

Logistics  Modal s.  In  tha  process  o-f  identifying  tha 
two  logistics  models  to  adapt  to  a  mi crocomputer ,  wa  noted 
tha  followings 

1.  Much  confusion  exists  as  to  what  models  are 
actually  useful  to  tha  logistics  engineer  during  tha  concep¬ 
tual  design  phase.  It  was  this  confusion  that  lad  to  tha 
general  selection  function  developed  in  Chapter  3.  The 
function  can  be  forced  to  select  any  particular  model  if 
the  weights  are  assigned  with  bias}  but  if  the  function  is 
used  properly,  it  farces  the  logistics  engineer  to  consider 
aspects  of  the  modal  that  could  easily  be  ignored  in  a  hasty 
decision  process. 

2.  Currant  logistics  models  are  not  designed  to 
take  advantage  of  a  microcomputer 's  graphics  capability; 
therefore,  it  might  be  best  to  develop  models  from  scratch 
versus  converting  them  from  mainframe  computers.  This  paral¬ 
lels  the  thought  of  one  logistics  engineer  who  read  a  draft 
of  this  report.  He  commented  that  in  his  experience  the  most 
useful  models  were  the  simple,  small  ones  written  for  a  spe¬ 
cific  purpose  by  the  engineers  working  on  tha  design. 
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3.  Logistic*  modal*  ar*  usad  primarily  dum  to  con¬ 
tractual  requirements,  but  th*  modal 's  usa  is  only  an  a-f tar- 
thought  and  not  normally  usad  in  tha  dacision  making  procass 
concarning  a  systam's  dasign.  Most  of  tha  individuals  inter — 
viewed  believed  that  if  tha  models  ware  readily  available, 
easy  to  usa,  and  produced  easy  to  understand  outputs  this 
attitude  towards  usa  of  logistics  models  would  change. 

Mi crocomputer s .  Tha  conversion  of  the  RMCM  demonstrates 
that  mi crocomputer s  are  capable  of  handling  the  task  of 
running  logistics  models.  The  following  conclusions  are 
supported  by  the  RMCM  conversion. 

1.  Run  time  for  the  microcomputer  version  of  the 
model  is  not  prohibitive.  The  run  time  may  be  greater  for 
other  logistics  models  but  with  faster  microcomputers  be¬ 
coming  available  run  time  should  not  be  a  major  problem. 

The  model  provided  reasonable  response  times  in  all 
but  one  situation.  This  was  the  use  of  the  model *s  GLOSSARY 
function.  The  GLOSSARY  function  searches  a  sequential  file 
to  provide  the  model's  user  definitions  of  key  terms.  The 
search  times  of  this  sequential  file  using  various  disk  medi¬ 
ums  are  listed  in  Table  VI. 


1. 

Floppy  Disk 

63  s 

econds 

2. 

Hard  Disk 

47  s 

econds 

3. 

RAH  Disk 

47  s 

econds 

Sine*  the  March  times  ars  the  same  -for  the  hard  disk  and  the 
RAM  disk,  ona  can  deduce  that  the  mi cr ocomputer  is  processor 
bound  and  not  input/output  bound.  A  faster  processor  would  of 
course  improve  these  times.  Another  way  to  improve  these 
times  would  be  to  rewrite  the  search  algorithm  using  a  random 
access  disk  file  instead  of  a  sequential  file. 

2.  The  memory  capacity  of  the  mi cr ocomputer  des¬ 
cribed  in  Chapter  1  was  more  than  sufficient  to  run  the  RMCM. 
The  RMCM  required  238K  bytes  of  core  storage  to  run  without 
overlays.  With  the  price  of  RAM  falling  with  technical 
advances,  memory  capacity  is  no  longer  a  limiting  factor. 

3.  Numerical  accuracy  was  not  a  significant  prob¬ 
lem  (see  Table  V,  p.  54).  Conversion  of  models  from  compu¬ 
ters  having  word  sizes  greater  than  32-bits  can  compensate 
for  round-off  error  by  making  use  of  double  precision  varia¬ 
bles.  The  increase  in  run  time  created  by  the  use  of  double 
precision  variables  on  a  microcomputer  having  special  numeric 
processors  is  minimal  since  these  processors  normally  perform 
all  calculations  as  if  the  operands  are  double  precision. 


4.  Software  support  for  language  processors  still 
needs  improvement.  Compilers  must  become  more  reliable  and 
generate  optimum  code  to  insure  the  mi crocomputer  is  used 
efficiently.  Graphics  capability  for  many  languages  is  non¬ 
standard  or  nonexistent.  FORTRAN  77  provides  no  direct 
method  for  using  the  graphics  capabilities  of  microcomputers; 
therefore,  it  is  necessary  to  either  purchase  or  produce 
assembly  language  subroutines  to  perform  graphics.  Once  this 
is  done,  portability  of  the  program,  which  is  a  primary 
reason  for  using  FORTRAN  77,  is  lost. 

We  also  found  there  are  several  user  aspects  of  a  micro¬ 
computer  versus  a  mainframe  computer. 

1.  Software  may  not  be  readily  convertible  from 
one  machine  to  another.  For  instance,  even  though  the  RMCM 
model  was  written  in  FORTRAN  IV  it  contained  several  statements 
which  were  peculiar  to  the  COC  Cyber.  Thus,  to  enable  the 
model  to  run  on  another  mainframe  which  utilized  FORTRAN  IV, 
conversion  of  the  special  statements  would  first  be  necessary. 
When  changing  from  mainframe  to  microcomputer ,  not  only  might 
the  computer  language  be  different  but  the  word  size  might  be 
different  thus  creating  a  problem. 

2.  Conversion  does  offer  at  least  one  advantage  to 
the  user:  the  chance  to  redesign  the  algorithm  of  the  model. 

Due  to  the  speed  of  the  mainframe  computer,  efficient  program¬ 
ming  is  not  always  of  particular  concern  to  the  programmer. 

The  slower  speed  of  the  microcomputer  makes  efficiency  in 


programming  nmc assary. 

3.  Availability  of  tha  modal  to  tha  usar  of  a 
microcomputar  is  an  advantage.  A  dedicated  machine,  even 
though  slower  than  a  mainframe,  can  provide  easy  access  to 
the  analysis  model.  Some  of  the  individuals  interviewed 
remarked  that  the  difficulty  of  getting  an  account  number 
and  password  for  a  mainframe  computer,  and  the  problems  of 
signing  on  to  the  system  were  enough  of  a  nuisance  to  make 
the  use  of  a  mainframe  computer  undesirable. 


Recommendat ions 

Having  completed  our  research  we  believe  the  following 
four-stage  plan  should  be  followed! 

1.  Using  the  selection  function  developed  in 
Chapter  3,  a  study  should  be  undertaken  to  identify  and 
rank  current  logistics  models  as  to  the  suitability  for 
performing  analysis  at  the  conceptual  design  stage  of  a 
system  and  the  model 's  suitability  for  incorporation  into 
a  CAD  system. 

2.  The  models  identified  should  be  adapted  to  a 
microcomputer .  A  commitment  should  be  made  at  this  time  to 
the  type  of  microcomputer  system  to  be  used  so  that  the 
model's  output  could  be  adapted  to  graphical  form.  This 
commitment  would  avoid  a  rewrite  of  the  graphical  routines 
because  of  a  change  in  microcomputer  selection. 

3.  These  models  and  microcomputers  should  be  made 


available  to  logistics  engineers  to  obtain  their  feedback 


and  inputs  for  possible  modifications  and  enhancements 


4.  The  last  major  step  will  be  the  actual 
interfacing  of  these  microcomputers  to  a  CAD  system.  This 
would  include  the  problems  of  extracting  data  from  the  CAD 
data  base  and  communicating  with  the  CAD  system. 


Appendix  Ai  Logistician  Interview 
<  13)  15;  27;  28;  42) 


This  interview  is  part  of  a  two-man  thesis  project  examining 
computerized  logistics  models  which  would  be  useful  during 
the  design  of  a  system.  It  is  our  intention  to  choose  a 
model  and  implement  it  on  a  microcomputer.  This  is  the 
first  step  of  a  larger  project  to  integrate  logistics  models 
into  a  computer  aided  design  (CAD)  system.  Your  responses 
will  be  used  to  supplement  our  literature  review. 


tat  agency  do  you  work? 


-  HQ  AFLC/XRS 

-  HQ  AFLC/PTA 

-  HQ  AFLC/MMAQP 

-  AFHRL/LR 

-  AFHRL/LRS 


2.  How  many  years  have  you  worked  with  logistics  models? 


13v  15,  25,  27,  and  30  years 


3.  Are  you  or  have  you  been  involved  in  the  design  of  a 
system?  If  so,  how  many  years? 


One  person  definitely  said  no;  the  others  were  at  least 
familiar  with  the  process. 


4.  In  the  design  stage,  what  types  of  analysis  does  the 
logistics  engineer  want  to  perform? 


Life  cycle  cost  in  dollars  allows  the  engineer  to 
evaluate  different  designs  in  terms  of  dollars.  Mobility 
and  support  analysis  indicates  the  impact  of  the  design  in 
terms  of  mobility;  it  can  look  for  things  such  as  special 
equipment  or  facilities  which  would  be  required  to  support 
the  design.  Testability  analysis  is  useful  but  is  a  very 
large  and  complex  area.  Reliability  analysis  is  also 
useful . 


5.  Which  logistics  models  or  what  types  of  logistics  model i 
would  you  consider  useful  in  the  early  stages  of  the  design 
of  a  system? 


One  person  suggested  Network  Repair  Level  Analysis 
(NRLA) ,  Logistic  Support  Cost  (L5C) ,  Life  Cycle  Cost  (LCC) , 
and  reliability  models.  Another  person  argued  that  NRLA 
requires  too  much  information  to  be  useful  during  the  early 
design  stages  and  that  NRLA  is  not  valid  for  use  during  the 
early  design  stages.  Still  another  person  said  that  all 
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modal*  dealing  with  early  dasign  that  ha  knaw  of  had  alraady 
baan  put  on  microcomputars.  Lastly,  ona  parson  said  that 
analysis  of  concaptual  dasign  is  not  dona  at  tha  CAD  staga. 
Tha  faw  modal*  that  are  applicable  in  tha  conceptual  dasign 
phasa  are  not  adaptable  to  a  mi cr ocomputer .  This  person 
felt  that  existing  models  should  not  be  used  with  CAD  systems 
because  tha  process  will  ba  dona  differently  to  take  advan¬ 
tage  of  CAD  capabilities. 

6.  What  models  do  you  use  in  your  work? 

NRLA,  LSC,  LCC,  and  reliability  models. 

7.  In  what  order  would  you  rank  these  models  if  ranking 
them  for  their  usefulness  and  importance?  Why? 

Only  one  person  would  rank  the  models  and  he  did  so 
using  ease  of  program  adaptability  to  a  microcomputer  as  the 
ranking  measure.  He  listed  LSC,  NRLA,  and  LCC2-A  going  from 
easi est  to  har dest . 

8.  What  are  the  problems  encountered  in  using  these  models 
(for  example,  data  availability,  data  validity)? 

Data  availability  and  format  were  identified  as  problems 
by  one  individual. 

9.  Would  being  able  to  run  these  models  earlier  in  the 
design  process  be  of  value? 

One  person  stated,  "Probably"  but  the  others  either 
stated  they  did  not  know  or  did  not  answer  the  question. 

10.  Logistics  models  will  probably  run  slower  on  a  micro¬ 
computer  than  on  a  mainframe  computer.  What  percentage 
decrease  in  speed  would  be  acceptable  to  you  considering 
you  would  probably  have  greater  access  to  the  mi crocomputer ? 

No  direct  response  was  received  for  this  question.  The 
respondents  believed  for  the  most  part  that  they  were  not  the 
ones  who  could  answer  the  question  and  some  stated  that  they 
were  not  qualified  to  answer  it. 

11.  How  much  of  the  models  which  you  work  with  do  you  use? 
That  is,  do  you  usually  use  50%  of  the  capacity  of  the 
model;  do  you  usually  use  50%  of  the  capability  of  the 
model ? 

No  one  responded  to  this  question. 

12.  Of  the  models  you  work  with,  which  features  do  you 
consider  significant  and  which  features  do  you  believe  you 


could  do  without  in  order  to  have  the  modal  placad  on  a 
mi cr ocomput er ? 

All  fait  that  this  question  could  not  ba  answered 
adequately  since  the  answer  changes  by  the  type  of  analysis 
needed  to  be  performed  for  any  given  project. 

13.  Do  you  have  any  experience  with  microcomputers?  If  so, 
what?  Do  you  know  of  logistics  models  which  might  be 
adapted  to  microcomputers? 

None  had  enough  experience  that  they  felt  they  could 
respond  with  any  authority. 

14.  Other  comments  (listed  in  a  random  fashion): 

-  Try  streamlining  the  program  by  reducing  the  number 
of  inputs  required.  Use  military  standards  for  many  of  the 
inputs. 

-  The  use  of  CAD  graphics  capability  is  more  helpful 
than  just  printing  out  a  table  of  numbers.  An  example  would 
be  stress  analysis  or  thermal  analysis  in  which  the  output 
is  in  terms  of  colors. 

-  The  design  engineer  does  not  do  conceptual  analysis 
on  his  design ;  he  gets  feedback  from  the  logistics  engineer 
and  the  logistics  planner.  This  analysis  comes  after  he  has 
made  his  design. 


Appendix  Bi  Computer  Specialist  Interview 
(10;  16;  18;  31) 


This  interview  is  part  of  a  two-man  thasis  project  axamining 
computarized  logistics  models  which  would  ba  useful  during 
the  design  of  a  system.  It  is  our  intantion  to  choose  a 
modal  and  implement  it  on  a  microcomputer.  This  is  the 
-first  step  of  a  larger  project  to  integrate  logistics  models 
into  a  computer  aided  design  (CAD)  system.  Your  responses 
will  be  used  to  supplement  our  literature  review. 

1.  How  many  years  have  worked  with  computers/mi crocomputers? 

Computers  Mi crocomputers 

8  5 

10  6 

16  6 

17  7 

2.  With  how  many  types  of  microcomputers  are  you  familiar 
(for  example,  IBM,  Apple,  TRS-80,  Commodore)? 

All  worked  on  at  least  one  type  of  mi crocomputer ,  most 
worked  on  more  (Apple,  Cromemco,  and  Z-100  were  mentioned). 

3.  What  languages  can  you  program  in  (for  example,  BASIC, 
FORTRAN,  Pascal,  Assembly)? 

All  knew  at  least  BASIC  with  most  knowing  another  such 
as  FORTRAN  or  Assembly  language. 

4.  Do  you  use  microcomputers  at  work?  At  home? 

All  used  them  at  least  at  work. 

5.  What  are  some  of  the  problems  you  see,  given  the  current 
structure  and  architecture  of  microcomputers,  in  implemen¬ 
ting  a  large  program  (for  example,  a  logistics  model)  on  a 
microcomputer?  What  are  your  suggested  solutions,  if  any, 
to  these  problems?  Please  address  the  following  areas  ar--* 
any  other  you  consider  significant. 

a.  Processor  speed 

b.  Memory  considerations 

c.  Input/output  channels  (speed  and  number  of  channels) 

d.  Operating  systems 

e.  Programming  languages 
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On*  response  mas  that  concern  with  processor  speed  was 
valid  but  that  it  washes  out  in  the  tradeoffs  that  is,  one 
is  usually  willing  to  give  up  some  speed  to  have  a  dedicated 
machine.  This  person  felt  that  the  types  of  problems  that 
would  be  answered  by  a  microcomputer  were  not  the  ones  which 
needed  to  be  answered  in  the  next  15  seconds;  rather,  the  type 
of  applications  for  the  micro  are  those  for  which  the  problem 
is  presented  in  the  morning  and  the  answer  is  needed  that 
afternoon.  This  person  felt  that  the  real  us*  of  the  micro¬ 
computer  was  in  supporting  some  type  of  decision  process. 

Another  person  believed  that  speed  was  all-important, 
that  faster  feedback  was  what  one  should  be  after.  This 
person  also  stated  that  he  would  not  put  a  large  program  on 
a  microcomputer  because  it  would  serve  no  useful  purpose.  He 
defined  a  microcomputer  as  a  machine  similar  to  an  Apple  II. 

He  felt  that  what  really  should  be  done  with  microcomputers 
is  to  use  them  in  decision  support  systems. 

Memory  capacity  is  no  longer  a  limiting  factor  in  the 
use  of  microcomputers. 

Problem  set-up  and  input/output  are  the  biggest 
constraints. 

6.  Do  you  see  the  16/32  bit  microprocessors  eliminating 
any  of  these  problems? 

Yes.  Most  felt  that  16-bit  processors  are  eliminating 
problems  with  8-bit  processors  and  that  32-bit  processors 
will  eliminate  those  problems  with  16-bit  processors. 

7.  What  do  you  see  as  the  minimum  configuration  of  a 
microcomputer  required  to  run  a  large  program? 

Most  felt  that  this  was  a  hard  question  to  answer  because 
of  the  trouble  of  determining  what  is  a  minimum  configuration 
and  what  is  a  large  program.  Together,  the  answers  would  seem 
to  favor  a  mi crocomputer  with  at  least  64k  memory,  a  five 
megabyte  hard  disk,  and  as  fast  a  processor  as  passible.  One 
told  of  a  program  he  adapted  to  a  64k  machine  and  how  he  had 
to  write  and  rewrite  the  code  to  be  able  to  get  it  to  fit  into 
the  64k  memory.  He  felt  that  64k  was  probably  too  small  but 
if  a  minimum  was  to  be  set  it  would  be  64k.  A  hard  disk  was 
mentioned  as  a  requirement  due  to  the  amount  of  data  required 
to  processed  by  a  logistics  model. 


8.  Other  comments  made  were  (listed  in  random  fashion): 

-  Avoid  describing  what  is  inside  the  box  but  talk  in 


tarns  of  inputs  and  outputs.  It  should  ba  usar  friendly 
(a van  at  tha  expense  of  spaad  or  mamory) ,  aasy  to  gat  into 
and  out  of  tha  program,  abla  to  add  data  or  to  antar  data 
aasily  (that  is,  it  should  usa  global  inputs),  aasy  to  trap 
input  arrors,  and  abla  to  salactivaly  choosa  i tarns  to  ba 
includad  in  tha  output. 

-  Tha  poorast  usar  of  tha  systam  should  not  ba  abla  to 
crash  tha  systam. 

-  Graphics  output  would  ba  usaful. 

-  Usa  commarcial  softwara  as  much  as  possible  due  to 
tha  power  and  quality  of  tha  softwara. 

-  Consider  doing  beta  tasting  on  your  software)  let 
some  classmates,  both  with  and  without  computer  experience, 
usa  it  to  observe  tha  types  of  problems  they  have. 

-  Tha  final  version  of  your  program  will  probably  be 
much  slower  than  you  had  anticipated. 

-  Evaluate  what  tha  usar  is  going  to  have  to  do  to 
operate  the  model.  If  it  is  complicated,  it  would  not  ba 
used  vary  much,  if  at  all.  Keep  it  as  simple  as  possible  for 
the  user. 

-  While  the  machine  is  numbar  crunching,  consider 
keeping  a  prompt  on  the  screen  to  let  the  usar  know  tha 
machine  is  still  operating  and  not  hung-up. 

-  Tha  key  in  using  a  microcomputer  is  to  usa  it  for 
limited  c oj actives;  do  not  expect  it  to  ba  a  mainframe. 

-  Improve  the  graphics  capability  and  the  presentation 
of  the  output . 


Appendix  Ci  Description  of  Models 
(6|  41) 


al  Naaai  Nat work  Rapair  Level  Analysis  Modal  (NRLA) 
li cable  Life  Cycle  Phases 


1 .  Daval op man t  phase 

2.  Detail  Design  phase 

3.  Pproduction  phase 

4.  Operation  Phase 

Functions  Computes  life  cycle  costs  associated  with 
various  levels  of  rapair. 

Solution  Techniques  Network  analysis 

Input  Reauirementss 

1.  Weapon  system  data 

a.  Number  of  bases 

b.  Number  of  operating  hours 

2.  Maintenance  system  data 

a.  Labor  rates 

b.  Other  factors 

3.  Supply  system  data 

4.  Support  equipment  data 

a.  Cost 

b.  Availability 

5.  LRU  data 

6.  SRU  failure 

Input  Sensitivitva  Estimated  data  may  be  used  but  one 
should  remember  that  "cost  for  support  equipment  acquisition 
and  maintenance  is  often  critical  for  determining  repair 
levels  which  minimize  total  costs  Ch2z613.n 

Outputs: 

1.  Repair  level  decisions 

2.  Detailed  costs 

3.  Cost  sensitivity  analysis 

Implementation/Cad  Data: 


Language:  FORTRAN  IV 

Run  Times  unknown 


,%  .S  •• 


Program  Sizmi 


Sourcm  Codmt  4400 

Core  Requirements:  unknown 

Special  Peripherals:  None 

Execution:  Batch 

Graphic  Output:  None,  but  the  model  is  designed  to 
accomplish  sensitivity  analysis  which  could  be  presented 
in  graphical  form. 

CAD  Data  Base  Interaction:  LRU  data  could  be  extracted 
and  then  matched  against  a  common  data  base. 


Modal  Naina  i  Rail  ability  Maintainability  Cost  Modal  (RMCM) 
Aoolicabla  Li -fa  Cvcla  Phases 

1.  Concaptual  phasa 

2.  Davalopaant  phasa 

3.  Oatail  dasing  phasa 

4.  Production  phasa 
3.  Op ar at ion  phasa 

Functions 

1.  Coaputas  ral lability  and  maintainability  paraaatar 
o-f  a  waapon  systaa. 

2.  Coaputas  life  cycla  cost  of  a  systaa. 

Solution  Tachniguas 

1.  Probability  thaory. 

2.  Accounting  thaory. 

Input  Raoui raaantss 

1.  Fraquancy  of  maintenance  actions. 

2.  Task/event  data  with  aach  maintenance  actions 

a.  Type 

b.  Probability 

c.  Avwaraga  time  to  coaplata 

d.  Manpower  and  skill  requirements 

3.  Cost  al aments 

Input  Sensitivitvs  can  usa  estimated  data 
Output ss 

1.  Man  hour  resource  requirements 

2.  Reliability  parameters 

3.  Maintainability  parameters 

4.  Availability  parameters 

3.  Cost  of  system 

I mo lament at ion /CAP  Data: 

Languages  CPC  FORTRAN  IV  Extended 

Run  Timas  unkown 

Program  Sizes 

Source  Codes  4400 


Core  Requirementss  unknown 


Special  Peripherals!  None 


Execution!  Interactive 

Graphic  Output!  None,  but  the  model  is  designed  to 
accomplish  sensitivity  analysis  which  could  be  presented 
in  graphical  form. 

CAD  Data  Base  Interaction!  LRU  data  could  be  extracted 
and  then  matched  against  a  common  data  base. 


m.  . 
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Appendix  Dt  Disk  File  Setup 

The  fol lowing  information  details  the  requirements  for 
initializing  the  data  files  prior  to  running  the  RMCM  on  the 
IBli— PC  under  the  Disk  Operating  System  (DOS)  2.0.  It  is 
assumed  that  the  reader  is  familiar  Mith  DOS  2.0  and  its 
file  structure.  For  information  on  DOS  2.0  reference  IBM's 
publication  #6024061 i  Disk  Operating  System. 

Disk  File  Setup 

All  data  disks  files  must  be  located  on  the  MCM  disk 
drive.  The  RMCM  program  module  may  be  located  on  any  avail¬ 
able  drive.  The  following  data  files  are  mandatory  and 
must  be  placed  in  the  current  working  directory  prior  to 
starting  the  RMCM* 

1.  RMBASE*  reliability  data  file 

2.  COST i  cost  input  data  file. 

The  following  data  files  are  optional  and  must  be  in¬ 
cluded  in  the  current  working  directory  only  if  the  indicated 
function  is  to  be  accessed  by  the  user i 

1.  tfELPi  contains  helpful  messages  for  the  user. 
Used  by  the  HELP  function. 

2.  DEFINE*  contains  definitions  of  key  terms. 

Used  by  the  GLOSSARY  function. 

3.  RMPERT*  if  the  user  desires  to  use  a  perturbed 


data  file  from  a  previous  session,  it  is  necessary  to  copy 
the  desired  perturbed  data  file  into  the  current  working 


directory  under  this  nue. 

The  following  date  filee  may  be  created  during  an 
execution  of  the  RMCMs 

1.  TEMP-3t  temporary  data  file  used  by  the  model. 
May  be  deleted  at  the  end  of  the  session. 

2.  TEMP-41  temporary  data  file  used  by  the  model. 
May  be  deleted  at  the  end  of  the  session. 

3.  TEMP-7:  temporary  data  file  used  by  the  model. 
May  be  deleted  at  the  end  of  the  session. 

4.  RMPERT:  if  not  previously  included  this  file 
will  be  created  if  the  user  perturbs  reliability  or  cost 
data. 

5.  BSEOUTi  binary  output  file  computed  using  base 
data.  Used  by  the  model  and  possibly  subsequent  report 
programs. 

A.  PRTOUTi  binary  output  file  computed  using 
perturbed  data.  Used  by  the  model  and  possibly  subsequent 
report  programs.  This  file  is  created  only  if  the  user 
decides  to  perturb  reliability  or  cost  data. 

7.  BSEOUT . ASCi  ASCII  representation  of  the  BSEOUT 

file. 


8.  PRTOUT.ASCs  ASCII  representation  of  the  PRTOUT 


THE  RELIABILITY,  MAINTAINABILITY  AND  COST  MODEL 


DO  YOU  NANT  BASIC  INSTRUCTIONS  <Y  OR  N)  ? 

N 

FUNCTION? 

MODIFY 

FOUND  RI>M  FILE  TO  COPY. 

R+N  VARIABLE? 

MFHBHA 

NEN  TITLE? 

TEST  «1 

TYPE? 

FACTOR 

FACTOR  • 

1.2 

MASK* 

AFR 

DO  YOU  NANT  A  LISTIN6  OF  THE  CHAN6ED  ITEMS? 
Y 

EQUIP  RMBA8E  RHPERT 

AFRRF  118.8  142.6 

AFRO I  160.1  192.1 

AFRME  696.8  836.2 


3  CHAN6ES. 

FUNCTION? 

PRODUCTS 

FOUND  THE  RAM  BASE  FILE. 

FOUND  A  PERTURBED  DATA  FILE. 

COMPARE  HITH  PERTURBED  RAM  FILE? 

Y 

SIMILARIZIN6  PERTURBED  DATA  FILE. 


FINISHED  SIMILARIZIN6  PERTURBED  DATA  FILE 


TITLE  CARD  READi 

BASELINE  C0NFI8URAT1QN-NEAPQN  SYSTEM  RADAR-ASSET  DEMONSTRATION  RH  DATA 
FINISHED  READING  RIM  DATA. 

TITLE  CARD  READi 

BASELINE  CONF I SURAT I QN-ME APON  SYSTEM  RADAR-ASSET  DEMONSTRATION  RM  DATATEST  *1 
FINISHED  READING  RAM  DATA. 

DATA  TITLE  CARD  READi 

BASELINE  C0NFI6URATI0N-NEAP0N  SYSTEM  RADAR-ASSET  DEMONSTRATION  COST  DATA 

FINISHED  READING  COST  DATA. 

DO  YOU  NANT  TO  CHANGE  INITIAL  COST  INPUTS? 

N 

DO  YOU  NANT  TO  PERTURB  COSTS? 

N 

PERTURBED  OUTPUT  FILE  TITLE? 

TEST  «1 

REPORT? 

LCC 

DO  YOU  NANTi 

1  -  X  CHANGE 

2  -  DIFFERENCE  ? 

1 

•LCC  BSEOUT  PRTOUT  X  CHANGE 

62,460,720.0  76,636,010.0  -4.6 

REPORT? 

RCY 

DO  YOU  NANTi 

1  -  X  CHANGE 

2  -  DIFFERENCE  ? 

t 

•RCY  BSEOUT  PRTOUT  X  CHANGE 

3,340,033.0  3,194,000.0  -4.4 


REPORT? 

END 

RMCM  ENDED 

Stop  -  Program  t*r«inat«d. 
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THE  RELIABILITY,  MAINTAINABILITY  AND  COST  MODEL 


DO  YOU  WANT  BASIC  INSTRUCTIONS  (Y  OR  N)  ? 

N 

FUNCTION? 

PRODUCTS 

FOUND  THE  RltM  BA8E  FILE. 

FOUND  A  PERTURBED  DATA  FILE. 

COMPARE  NITH  PERTURBED  RtiH  FILE? 

N 

TITLE  CARD  READi 

BASELINE  CONFIGURATION-NEAPON  SYSTEM  RADAR-ASSET  DEMONSTRATION  RM  DATA 
FINISHED  READING  RAM  DATA. 

DATA  TITLE  CARD  READi 

BASELINE  COMF1 SURAT ZON-MEAPON  SYSTEM  RADAR-ASSET  DEMONSTRATION  COST  DATA 

FINISHED  READINB  COST  DATA. 

DO  YOU  WANT  TO  CHANGE  INITIAL  COST  INPUTS? 

N 

DO  YOU  NANT  TO  PERTURB  COSTS? 

N 

REPORT? 

LCC 

»LCC  BSEOUT 

69,931,620.0 

REPORT? 

RC 

•RC  BSEOUT 

37,591,720.0 


REPORT? 

RCY 

•RCY  BSEOUT 

2,306,113.0 


REPORT? 


*NRC  B8E0UT 

32,339,910.0 

REPORT? 

END 


RHCH  ENDED 

Stop  -  Prograa  tarainatad 


Examol*  S»»»ion  Thr»» 


THE  RELIABILITY,  MAINTAINABILITY  AND  COST  MODEL 


DO  YOU  NANT  BASIC  INSTRUCTIONS  <Y  OR  N)  ? 

N 

FUNCTION? 

PRODUCTS 

FOUND  THE  RIM  BASE  FILE. 

FOUND  A  PERTURBED  DATA  FILE. 

COMPARE  NITH  PERTURBEO  RIM  FILE? 

N 

TITLE  CARD  READt 

BASELINE  COMF1 SURAT I QN-NEAPON  SYSTEM  RADAR-ASSET  DEMONSTRATION  RM  DATA 
FINISHED  READIN6  RIM  DATA. 

DATA  TITLE  CARD  READi 

BASELINE  COMF1 SURAT ION-NEAPON  SYSTEM  RADAR-ASSET  DEMONSTRATION  COST  DATA 

FINISHED  READIN8  COST  DATA. 

DO  YOU  NANT  TO  CHAN6E  INITIAL  COST  INPUTS? 

N 

00  YOU  NANT  TO  PERTURB  COSTS? 

Y 

COST  VARIABLE? 

UC 

TYPE? 

FACTOR 

FACTOR  * 

1.2 

MASK* 

AFR 

DO  YOU  NANT  A  LIST  INS  OF  THE  CHAN8ED  ITEMS? 

Y 

COST  PERTURBED 
AFRRFl  129141.00  134969,20 


AFRRF2 

119398.00 

138477.60 

AFRDI1 

62321.00 

74789.20 

AFRDI2 

71996.00 

89867.20 

AFRHE1 

98929.00 

70234.80 

AFRHE2 

99269.00 

114318.00 

6  CHANBES. 

COST  VARIABLE? 

X 

PERTURBED  OUTPUT  FILE  TITLE? 

TEST  *2 

REPORT? 

LCC 

DO  YOU  MANTi 

1  -  X  CHANSE 

2  -  DIFFERENCE  ? 

1 

♦LCC  BSEOUT  PRTOUT 

69,991,620.0  74,681,380.0 


REPORT? 

NRC 

DO  YOU  HANTS 

1  -  X  CHANSE 

2  -  DIFFERENCE  ? 

1 

♦NRC  BSEOUT  PRTOUT 

32,399,910.0  37,030,280.0 


REPORT? 

RC 

DO  YOU  HANTS 

1  -  X  CHANSE 

2  -  DIFFERENCE  ? 

1 

♦RC  BSEOUT  PRTOUT 

37,991,720.0  37,691,100.0 


REPORT? 

END 


X  CHAN6E 

6.8 


X  CHANBE 
14.4 


X  CHANSE 

.2 


RMCH  ENDED 

Stop  -  Program  tvminattd. 


Samole  Reliability 

Data 

.  ; 

BASELINE  CONFIGURATION-WEAPON  SYSTEM  RADAR-ASSET 

DEMONSTRATION 

RM  DATA 

03 

*  J 

CR 

AFRRF  -1 

123. 5 

7SA00 

1  RADIO  FREQUENCY  SUBSYSTEM 

2 

CR 

AFRRF1  -1 

69.2 

7SAA0 

1  TRANSMITTER  LRU 

8 

CR 

AFRRF2  -I 

34.3 

73AB0 

1  LON  POWER  RADIO  FREQUENCY  LRU 

12 

V  _ 

CR 

AFRDI  -1 

94.7 

7SB00 

1  DIGITAL  SUBSYSTEM 

2 

• 

CR 

AFRDI1  -1 

31.3 

73BA0 

1  COMPUTER  LRU 

11 

CR 

AFRDI2  -1 

63.4 

73BB0 

1  DIGITAL  SIGNAL  PROCESSOR  LRU 

36 

CR 

AFRME  -1 

78.7 

75C00 

1  MECHANICAL  SUBSYSTEM 

2 

CR 

AFRNEI  -1 

61.7 

73CA0 

1  ANTENNA  LRU 

5 

CR 

AFRNE2  -i 

17.0 

73CB0 

1  RACK  LRU 

0 

CR 

AFRME2  -2 

73CB0 

SF 

AFRRF  -1 

PCHYD 

PCHYD 

HANDF  PCHYD  PCHYD 

PCHYD 

1 

SF 

AFRDI  -1 

PCHYD 

PCHYD 

HANDF  PCHYD  PCHYD 

PCHYD 

1 

SF 

AFRME  -1 

PCHYD 

PCHYD 

HANDF  PCHYD  PCHYD 

PCHYD 

1 

LF 

AFRRF  -1 

32637 

32637 

32657  32637  32637 

32657 

1 

’  .  - 

LF 

AFRDI  -1 

32637 

32637 

32637  32637  32637 

32657 

1 

LF 

AFRME  -1 

32637 

32637 

32637  32637  32657 

32657 

1 

LS 

AFRRF!  -1 

32634 

32634 

32634 

32634 

32634 

1 

LS 

AFRRF2  -l 

32634 

32654 

32654 

32654 

32634 

1 

LS 

AFRDI 1  -1 

32634 

32634 

32634 

32634 

32654 

1 

■*  • 

LS 

AFRDI2  -1 

32634 

32634 

32634 

32654 

32634 

1 

1  *  ' 

LS 

AFRNEI  -1 

32634 

32654 

32634 

32654 

32654 

1 

LS 

AFRNE2  -1 

32634 

32654 

32634 

32654 

32654 

1 

• 

TS 

AFRRF1  -1 

13 

3 

13 

40 

40 

T  -  T* 

TS 

AFRRF2  -1 

12 

2 

12 

40 

40 

**• 

TS 

AFRDI 1  -1 

10 

2 

10 

40 

40 

\V.“ 

TS 

AFRDI2  -1 

11 

2 

11 

40 

40 

%v** 

TS 

AFRME 1  -1 

8 

1 

8 

40 

40 

TS 

AFRNE2  -1 

10 

1 

10 

40 

40 

j. 

TF 

AFRRF  -1 

1 

2 

1 

2  3  2 

2 

TF 

AFRDI  -1 

1 

2 

1 

2  3  2 

2 

TF 

AFRME  -! 

1 

2 

1 

2  3  2 

2 

PF 

AFRRF  -1 

10000 

.7000 

.3000 

.6200  .0800  .6200 

.0800 

•  .*■ 

PF 

AFRDI  -1 

10000 

.7000 

.3000 

.6200  .0800  .6200 

.0800 

PF 

AFRME  -1 

10000 

.7000 

.3000 

.6200  .0800  .6200 

.0800 

• 

PS 

AFRRF 1  -1 

.067 

.037 

.082 

1993 

1993 

V:' 

PS 

AFRRF2  -l 

.217 

.091 

.126 

1993 

1993 

PS 

AFRDI 1  -1 

.078 

.060 

.048 

1993 

1993 

PS 

AFRDI2  -1 

.193 

.144 

.095 

1993 

1993 

*.*•*•. 

PS 

AFRME 1  -1 

.317 

.083 

.164 

1993 

1993 

;V ’• 

PS 

AFRHE2  -1 

.051 

.000 

.003 

1993 

1993 

_• 

SS 

AFRRF 1  -1 

ATIT1 

AT  IT! 

ATIT1  01 

ATIT1 

ATIT1 

1 

SS 

AFRRF2  -1 

ATIT2 

ATIT2 

ATIT2  02 

ATIT2 

ATIT2 

l 

'  V- 

SS 

AFRDI 1  -1 

ATIT3 

ATIT3 

ATIT3  03 

ATIT3 

ATIT3 

1 

. 

SS 

AFRDI2  -1 

ATIT4 

ATIT4 

ATIT4  04 

ATIT4 

ATIT4 

1 

y- 

SS 

AFRMEl  -1 

ATIT3 

ATIT5 

ATIT5  03 

ATIT5 

ATIT5 

1 

.  •  j 

SS 

AFRHE2  -1 

ATIT6 

ATIT6 

ATIT6  06 

ATIT6 

ATIT6 

1 

_• 

-  - 

MF 

AFRRF  -1 

118. 

3 

HF  AFRO!  -1  160.1 

HF  AFRHE  >1  696.8 

002 

32657  32654 

06 

ATIT1  ATIT2  ATIT3  ATIT4  ATIT5  ATIT6 


BASELINE  C0NFI8URATI0N-HEAP0N  SYSTEM  RADAR-ASSET  DEMONSTRATION  COST  DATA 
VE  RECUR  -1  0 

VE  RECUR  -2 


VE  NRECUR  -3 

VE  NRECUR  -4 

0 

0 

0 

VI  AFRRF1  -1 

129141 

.01 

.01 

36 

1.84 

100 

300 

VI  AFRRF2  -1 

113398 

.01 

.01 

36 

1.84 

100 

300 

VI  AFRDI1  -1 

62321 

.01 

.01 

56 

1.84 

100 

500 

VI  AFRDI2  -1 

71356 

.01 

.01 

36 

1.84 

100 

500 

VI  AFRME1  -1 

38329 

.01 

.01 

36 

1.84 

100 

500 

VI  AFRME2  -1 

93263 

.01 

.01 

56 

1.84 

100 

300 

VI  AFRRF1  -2 

8. 

0 

a. 

VI  AFRRF2  -2 

12. 

0 

12. 

VI  AFRDI1  -2 

11. 

0 

11. 

VI  AFRDI2  -2 

36. 

0 

36. 

VI  AFRHE1  -2 

3. 

0 

3. 

VI  AFRME2  -2 

0. 

0 

0. 

VJ  ATIT1  -1 

443297 

0 

.30 

0 

0 

1.0 

VJ  ATIT2  -1 

330319 

0 

.30 

0 

0 

1.0 

VJ  ATIT3  -1 

372268 

0 

.30 

0 

0 

1.0 

VJ  ATIT4  -1 

372268 

0 

.30 

0 

0 

1.0 

VJ  ATIT5  -1 

93486 

0 

.30 

0 

0 

1.0 

VJ  ATIT6  -1 

100 

0 

.30 

0 

0 

1.0 

VJ  ATIT1  -2 

1.0 

VJ  ATIT2  -2 

1.0 

VJ  ATIT3  -2 

1.0 

VJ  ATIT4  -2 

1.0 

VJ  ATIT3  -2 

1.0 

VJ  ATIT6  -2 

1.0 

VD  ATIT1  -l 

1 

100 

VD  ATIT2  -1 

1 

100 

VD  ATIT3  -1 

1 

100 

VD  ATIT4  -1 

l 

100 

VD  ATIT3  -i 

1 

100 

VD  ATIT6  -I 

1 

100 

VN  32637  -1 

8 

500 

100 

0 

1000 

.33 

VN  32634  -1 

8 

500 

100 

0 

1000 

.33 

VN  32637  -2 

17. 

0.0 

1.0 

11.70 

2.28 

0.0 

VN  32634  -2 

17. 

0.0 

1.0 

11.70 

2.28 

0.0 

VP  32PIL  -1 

13000 

VS  SCALAR  -0 

0 

0 

2000 

0 

0 

1981 

VS  SCALAR  -1 

.13 

.36 

.53 

.43 

.  1 

.05 

100 

VS  SCALAR  -2 

0 

0 

2000 

2000 

0 

2000 

0 

.25 

VS  SCALAR  -3 

0 

0 

0 

0 

0 

VS  SCALAR  -4 

0 

0 

0 

0 

.2 

.2 

VS  SCALAR  -3 

40.91 

104.20 

20.20 

.53 

.99 

1.35 

0.1 

5000 

VS  SCALAR  -6 

247 

3312 

2461 

1920 

.60 

t 

15 

VS  SCALAR  -7 

23 

1 

25 

35 

0 

.5 

.  15 

.5 

VS  SCALAR  -8 

420 

0 

0 

704959 

1914802 

0 

0 

VS  SCALAR  -9 

.  10 

.1 

1 

0 

t 

5 

.09 

nnononnno  r>  o  r>  cion  ooo 


Appendix  Ft  Program  Lifting 


COMMON  /OVER/  JABT , 102, IQ4A, JN,NHAX,LA8T 
C 

1NTE8ER  MA8K, TITLE 

COMMON  /ALL/  N0THER,KPR,K8Q,KLI ,NMA8K,NTITL,HA8K(10) , TITLE <  10) 

C 

COMMON  /HINT/  JHINT 
C 

CHARACTER* 10  FUNC(S) 

CHARACTER* 1  AST (2) 

C 

DATA  FUNC/ ‘MODIFY* , ‘SET* , * 8L088ARY * , 

I  ‘PRODUCTS', ‘END’/ 

DATA  AST/ *  ',*♦•/ 

C 

MRITEf*, 10) 

10  FORMAT!//, *  THE  RELIABILITY,  MAINTAINABILITY  AND  C08T  MODEL  ',//) 

CHECK  FOR  PRESENCE  OF  HELP  FILE. 

JHINT  ■  0 
CALL  CHECK (1,*1) 

SOTO  S 
1  JHINT  ■  -l 
WRITE!*, 90001 

9000  FORMAT! ‘  DID  NOT  FIND  THE  HELP  FILE*,/) 

INITIALIZE  SYSTEM  PARAMETERS. 

S  CALL  RESET 

READ  IN  SYSTEM  DATA  FILES  CURRENTLY  AVAILABLE  (LCCFILES). 

LAST  ■  0 
NOTHER-O 

IF  ! JHINT  . NE.  0)  SOTO  20 

15  NRITE(*,16) 

16  FORMAT!/, '  DO  YOU  NANT  BASIC  INSTRUCTIONS  (Y  OR  N)  ?  ') 

CALL  INP!3,0,0,0,0,2,J,*20,*1S) 

IF  (J  .EQ.  1)  CALL  HELP(S) 

ALL  PRQMPT8  FOLLOH  THE  F0LL0NIN8  FORMATi 

1)  PRINT  PROMPT  IF  USER  HAS  NOT  ANTICIPATED  IT  IN  WHICH 
CA8E  NOTHER  WOULD  BE  >  0. 

2)  CALL  INP  TO  RECEIVE  U8ER  RESPONSE. 

3)  REPRINT  THE  PROMPT  IF  USER  TYPES  HELP  (SECOND  CONDITIONAL 
RETURN). 

4)  PROCEED  8ASED  ON  USER'S  RESPONSE. 

20  IF  (NOTHER  .EQ.  0)  WRITE!*, 30) 


non  non  noon 


30  FORMAT (/, '  FUNCTION?  ') 

CALL  INP(4,FUNC, 0,0,5,10,0 ,*1000, *20) 

80T0  (40,50,00,100,1000) ,0 

40  CALL  H00IFY 
80T0  20 

50  CALL  SET 
60TQ  20 

00  CALL  DEFINE 
SOTO  20 

FOR  OUTPUT  PRODUCTS,  FIRST  8ET  R+H  F1LE(8>  FOR  USE.  102-0 
INFERS  NO  PERTURBATION  OF  R+H  DATA  18  TO  BE  EXAMINED. 

100  102-0 
JN-0 

CHECK  FOR  PRESENCE  OF  R+H  BASE  FILE. 

CALL  CHECK (11, *120) 

HRITE(*,9010) 

9010  FORMAT  (/,'  FOUND  THE  ROM  BASE  FILE.’) 

SOTO  130 

120  HRITE («, 121 ) 

121  FORMAT (/,*  R+M  FILE  NOT  ATTACHED.') 

SOTO  1000 

CHECK  FOR  PRESENCE  OF  PERTURBED  R+M  FILE. 

130  CALL  CHECK<12,*153) 

WRITE (* , 9020  > 

9020  FORMAT (/,'  FOUND  A  PERTURBED  DATA  FILE.') 

IF  (NOTHER  .EQ.  0)  WRITE (*, 140) 

140  FORHATt/,'  COMPARE  NITH  PERTURBED  REM  FILE?  ') 

CALL  INP(3,0,0,0,0,200, JN,*20,»130) 

IF  (JN  .EQ.  0)  SOTO  153 
102  -  12 
HRITE(*,9030) 

9030  FORMAT (/, '  SIMILARIZIN8  PERTURBED  DATA  FILE.’) 

152  CALL  8IMILA  (*1000) 

C 

HRITE (*,9040) 

9040  FORMAT  </,'  FINISHED  SIMILAR! ZINS  PERTURBED  DATA  FILE.’) 

153  NHAX-16 
JABT-0 
CALL  RMODEL 

IF  (JABT  .EQ.  1)  SOTO  20 

JABT-0 

CALL  CMODEL 

IF  (JABT  .EO.  1)  SOTO  156 


nnnnonnnnnnnn 


NHAX-66 
156  JA8T-0 
CALL  XOUT 

IF  (JABT  .EQ.  1)  BOTO  1000 
SOTO  20 
C 

1000  WRITE (*f 1010) 

1010  FORMAT <///,'  RMCM  ENDED') 

STOP 
END 

SUBROUTINE  FIND(CH.KODE) 

THIS  ROUTINE  IS  CALLED  BY  INP  TO  CONVERT  AN  ALPHA  CHARACTER 
TO  A  DIBIT  OR  SPECIAL  CODEi 
KOBE  •  1-10  FOR  THE  CORRESPOND INS  DISIT  PLUS  1 

11  BLANK 

12  COMMA 

13  PERIOD  (DECIMAL) 

14  PLUS  3ISN 

15  MINUS  8I6N 

16  Y 

17  N 

0  NONE  OF  THE  ABOVE 
CHARACTER* 1  CH, TAB (17) 

DATA  TAB/'OVl  V2V3V«V3V6V7V8Vt,l 
6  *  V*V-VYVN*/ 

C 

DO  10  KODE-1,17 

IF  (CH.EQ.TAB(KQDE) )  RETURN 
10  CONTINUE 
KODE-O 
RETURN 
END 

SUBROUTINE  HELP(N) 

C 

C  READ  FROM  UNIT  1  ALL  CARDS  NITH  THE  VALUE  N  IN  COLUMNS  1-4. 

C  CALLED  FROM  INP  (AND  MAIN  INITIALLY)  TO  PROVIDE  USER  ASSISTANCE 
C  TO  PROMPTS  (AND  BASIC  INSTRUCTIONS). 

C  CALLED  BY  MAIN, INP 
C 

CHARACTER«76  ARRAY 
C 

COMMON  /HINT/  JHINT 
C 

DATA  LAST/O/ 

C 

IF  (JHINT  .SE.  0)  SOTO  5 
NRITE<«,3) 

3  FORMAT (/ , '  HELP  FILE  NOT  ATTACHED.') 

RETURN 
5  KOUNT-O 


ononnn 


C  THE  FILE  18  LEFT  IN  POSITION  FROM  THE  LA8T  CALL  AND  REHOUND 
C  IF  THE  CURRENT  N  18  EARLIER,  ADVANCED  IF  LATER  IN  THE  FILE, 

C  OR  PRINTED  RI8HT  AHAY  IF  HE  HAPPEN  TO  HANT  THE  VERY  NEXT  HELP. 

C 

IF  (N-LA8T)  10,40,20 
10  REHINO  1 

20  READ ( 1 , 30 , END-99 )  LAST, ARRAY 
30  FORMAT < 14, A76) 

IF  (LAST  .NE.  N)  SOTO  20 
40  CALL  ABORT (KOUNT, *60) 

HRITE(#,30)  ARRAY 
SO  FORMAT (1X,A76) 

40  RE AD (1,30, END-99)  LAST, ARRAY 
IF  (LAST  .EQ.  N)  SOTO  40 
SOTO  100 
99  LAST-99999 
100  RETURN 
END 

SUBROUTINE  DEFINE 
C 

C  THIS  ROUTINE  ACCESSES  THE  8L088ARY  (FILE  'DEFINE'). 

C  THE  USER  HAY  ASK  FOR  A  DEFINITION  AF  ANY  TERN  OR  A  LIST  OR 
C  MASKED  LIST  OF  THE  AVAILABLE  TERH8. 

C  CALLED  BY  MAIN, MODIF, OUTPUT, MODCST 
C 

CHARACTER*!  LBBB,TERH ( 10) 

CHARACTER*4  LIST 

CHARACTERMO  TRM ,DISP (7)  ,QLD,SYN<7) , ARRAY (7) ,  ALL (7) 

C 

CHARACTER#!  XHASK, XTITLE 
COMMON  /JJF/  XHA8K< 10), XTITLE (10) 

C 

INTE8ER  MASK, TITLE 

COMMON  /ALL/  NOTHER,KPR,KSO,KLI ,NMASK,NTITL, MASK ( 10) , TITLE ( 10) 
C 

DATA  J/0/ 

DATA  LIST/ 'LIST ' / 

DATA  LBBB/'L'/ 


THE  FIRST  TIME  THR0U8H  THE  FILE  IS  ATTACHED  AND  BASIC 
INFORMATION  PRINTED  (UNLESS  THE  USER  HA3  ANTICIPATED  THE 
NEXT  PROMPT).  NUM  18  THE  NUMBER  OF  LINES  IN  THAT  BASIC  INFO. 

CALL  CHECK (2, *5) 

SOTO  7 

5  HRITE(*,6) 

6  FORMAT (/ , '  FILE  DEFINE  NOT  ATTACHED.') 

RETURN 

IF  (J  .EQ.  1)  SOTO  60 


oor»o  or»r»  oooo  r*  non 


IF  (NOTHER  . 8T.  0)  SOTO  79 
10  READ(2,20)  NUH,N8,8YN 
20  FORHAT ( 13, 12, 9X,7A10) 

PRINT  NUN  LINES  OF  THE  8L088ARY. 

29  LINE-0 

DO  90  K-1,NUH 
READ <2, 30)  ARRAY 

30  FORHAT (7A10) 

CALL  ABORT (LINE, *90) 

NRITE(»,40>  ARRAY 
40  F0RHAT(1X,7A10) 

90  CONTINUE 

AO  IF  (NOTHER  .E8.  0)  NRITE(#,70) 

70  FORHAT (/,'  TERN?  ') 

79  CALL  INP(9,0,TERH,0, 10,3,NUH,*210,tA0) 

NRITE(TRH,80)  TERN 

80  FORMAT < 10A1 ) 

IF  THE  USER  NANT8  A  LIST  OF  AVAILABLE  TERNS,  HE  INPUT8  'L' 

OR  'LIST'.  NE  THEN  BYPA88  THE  BASIC  INFO. 

IF  (TRH  .NE.  LIST  .AND.  TRH  .NE.  LBBB)  SOTO  140 

REHIND  2 

LINE-0 

READ (2, 20)  NUN 
DO  90  K-l.NUH 
READ(2,80) 

90  CONTINUE 

SET  A  MASK  FOR  THE  LIST,  IF  DESIRED. 

IF  (NMA8K  ,EQ.  -1)  SOTO  102 

NHBK-NMA8K 

SOTO  109 

102  IF  (NOTHER  .EQ.  0)  HRZTE(«,104) 

104  FORHAT (/ , '  MASK-  ') 

CALL  I NP ( 9 , 0 , X H ASK ,0,10,90, NH8K , • AO , t 1 02 ) 

109  KNT-0 
KSOHE-O 

READ  THE  HEADER  CARD.  ALL  CONTAINS  THE  TERN  AND  ITS  SYNONYMS 
AND  SKIP  THE  DEFINITION 

110  READ  (2, 20, END-130)  HUH, NS, ALL 
DO  120  K-l , NUM 

READ ( 2 , SO ) 

120  CONTINUE 

IF  (NN8K  .EQ.  0)  SOTO  123 


r»  o  o  r>  a  o  o  non  n  n  n  nnnn 


C  CHECK  ALL  THE  8YN0NYHS  A6AIN8T  THE  HA8K. 

C 

00  122  K«1,NS 
TRH-ALL(K) 

READ(TRH,B0)  TERH 

CALL  HATCH ( NH8K , XHA8K , 1 0 , TERN ,*122) 

SOTO  124 

122  CONTINUE 
SOTO  110 

IF  NO  HASK,  U8E  THE  FIRST  8YN0NYH. 

STORE  THIS  TERH  IN  DISP.  PRINT  OUT  IN  6R0UP8  OF  7. 

123  TRH-ALL(l) 

124  KNT-KNT+1 
K80HE-1 
DISP (KNT )*TRH 
IF  (KNT  .LT.  7)  80T0  110 
CALL  ABORT (LINE, *60) 

NRITE (*, 126)  DISP 

126  FORHAT (7 ( IX ,A10) ) 

KNT*0 
SOTO  110 

PRINT  LAST  8R0UP  AT  END  OF  FILE. 

130  RENIND  2 

IF  (KNT  .ST.  0)  NRITE (*,126)  (DISP (K) ,K»1 , KNT) 
IF  (K80HE  .EQ.  0)  WRITE (», 133)  XHA8K 
133  FORHAT (IX, 10A1 , '  NOT  IN  BL088ARY. *) 

SOTO  60 

CHECK  FOR  NEXT  TERH. 

13S  RENIND  2 

140  READ (2, 20, END* 138)  NUN,N8,8YN 

SET  STARTINS  POINT. 

CHECK  A6AIN8T  ALL  3YN0NYH8. 

0LD-8YNU) 

130  DO  160  K«1,N8 

IF  (TRH  .HE.  SYN(K) )  SOTO  160 
WRITE («t 1SS)  TRH 
138  FORHAT ( '  *',A10> 

SOTO  23 
160  CONTINUE 


BYPASS  DEFINITION. 

DO  170  K>1,NUH 
READ<2,80) 


n  n  n  n  n  n  n  o  n  n  n  n  o  n  nnnnnnnno  onn  r>  n  n  n 


170  CONTINUE 

180  READ <2,20, END"200 )  NUH,N8,3YN 
IF  (8YN(1)  .NE.  OLD)  80T0  ISO 

IF  HE  SET  BACK  TO  HHERE  HE  STARTED  HITHOUT  EVER  FINDIN8  THE 
DESIRED  TERN,  IT  ISN'T  IN  THE  8L0B8ARY. 

HR I TE < * f  190)  TRH 

190  F0RHAT(/,1X,A10, *  NOT  IN  8L0S8ARY. ') 

N0THER«0 
REN1ND  2 
SOTO  60 

AT  END  OF  FILE  LQ0KIN8  FOR  A  TERN,  REHIND  AND  KEEP  L00KIN6. 

200  REHIND  2 
SOTO  180 
210  RETURN 
END 

SUBROUTINE  ABORT (N,») 

THI8  ROUTINE  IS  CALLED  JUST  BEFORE  EACH  LINE  OF  A  LIST  IS 
BEIN6  PRINTED.  IF  THE  LINE  IS  NOT  TO  BE  PRINTED,  BECAUSE 
THE  USER  ONLY  HANTS  'HAXLIN'  LINES  AT  A  TINE,  OR  BECAUSE 
THE  USER  HAS  CANCELLED  THE  RENA I NDER  OF  THE  LIST,  RETURN  1 
IS  EFFECTED. 

N  IS  SET  TO  0  BY  THE  CALL I NS  PROSRAH  PRIOR  TO 
THE  FIRST  CALL. 

COHHON  /LINES/  HAXLIN 

CHARACTER* 1  CH,EX,BL 

DATA  EX/'X'/ 

DATA  BL/*  '/ 

IF  N  IS  SET  TO  ABORT  FROH  A  PREVIOUS  CALL,  THE  PRINT  IS 
ABORTED. 

IF  (N  .EQ.  -1)  RETURN  1 

INCREHENT  N  AND  PRINT  ANOTHER  LINE. 

IF  (N  .BE.  HAXLIN)  80T0  1 

N-N+l 

RETURN 

HE  HAVE  REACHED  THE  L1HIT.  RESET  N  TO  1  LINE.  IF  THE  USER 
TYPES  X,  SET  LOOP  ABORT  TO  -1.  ELSE  RETURN  HITH  N  BACK  AT 
1  TO  KEEP  PRINTIN8  .  FOR  INVALID  ENTRIES,  HELP  IS  PROVIDED. 


1  HRITE (*,20) 


S  READ  (• , 10)  CH 
10  FORMAT (Al) 

IF  (CH  .NE.  EX)  60T0  IS 
N—l 

RETURN  1 

IS  IF  (CH  .EO.  BD  RETURN 
NRITE<*,20) 

SOTO  S 

20  FORMAT (/f  *  ENTER  X  TO  CANCEL.  ENTER  SPACE  TO  CONTINUE. ') 
END 

SUBROUT 1 NE  HATCH (NUH , MASK , NCOL ,  COLS , *) 

C 

C  THIS  ROUTINE  COMPARES  MASK  TO  COLS.  IF  MASK  18  COMPLETELY 
C  CONTAINED  IN  COLS,  A  NORMAL  RETURN  IS  HADE.  IF  NOT,  RETURN  1. 
C  NUH  -  LEN8TH  OF  HA8K 
C  MASK  -  UP  TO  10  CHARACTERS 
C  NCOL  -  LENBTH  OF  THE  CANDIDATE  FIELD 

C  COLS  -  THE  CANDIDATE  FIELD 

C 
C 

CHARACTER* 1  PER,NA8K(10) ,C0L3 (10) 

C 

DATA  PER/’. */ 

C 

C  NO  MASK  IMPLIES  CONTAINMENT. 

C 

IF  (NUH  .EO.  0)  RETURN 
C 

C  JUP  IS  THE  NUMBER  OF  POSSIBLE  ALISNMENT8. 

C 

JUP-NCOL+l-NUH 
DO  20  K»1 , JUP 
DO  10  LM,NUH 
C 

C  ACCEPT  PERIODS  AS  HITS  RESARDLESS. 

C 

IF  (HA8K(L)  .EO.  PER)  SOTO  10 
IF  (HA8K(L)  .NE.  C0LS(K+L-1))  SOTO  20 
10  CONTINUE 
C 

C  SATISFIED  LOOP  INFERS  NATCH  OF  KTH  ALIGNMENT  POSITION. 

C 

RETURN 
20  CONTINUE 
RETURN  1 
END 

SUBROUTINE  SET 
C 

CHARACTER* 10  PARM3(12) 

C 

CHARACTER*!  XHASK.XTITLE 


non  ooo  nnon  n  n  n  n  non 


COMMON  /  J  J  F /  XHASK(IO) f  XT  I TLE (10) 

C 

INTE8ER  MASK, TITLE 

COMMON  /ALL/  NOTHER, KPR, KSO, KLI ,NMA8K,NTITL,MA8K (10) ,TITLE(10) 
C 

COMMON  /LINES/  HAXLIN 
C 

DATA  FARMS/ 'LINES’ , '01 FFERENCE ‘ , ‘ XCHAN8E ‘ , ‘ SORT ' , 
t>  'N080RT' , 'MASK' , ‘N0MA8K ' , 'TITLE' , ‘NOTITLE ' , 'BACK' , 

8  'LIST', 'N0LI8T'/ 

C 

C  THI8  ROUTINE  ALL0N8  THE  U8ER  TO  SET  PARAMETERS  TO  BE  U8ED 
C  THR0U8H0UT  THE  PROSRAH,  INSTEAD  OF  BE I NS  PROMPTED  EACH  TINE 
C  ONE  OF  THESE  PARAMETERS  IS  NECESSARY. 

C  CALLED  BY  MAIN,  OUTPUT,  HODC8T 

10  IF  (NOTHER  .EQ.  0)  WRITE (*f 20) 

20  FORMAT (/,'  PARAMETER  >  ') 

CALL  I NP( 4, PARKS, 0,0, 12, 190, J , MS, *10) 

SOTO  (30, SO, 60, 70, 80, 90, 110, 120, 140, 150, 160, 170), J 

CHAN8E  MAX  LINES  TO  ANY  VALUE  FROM  1  TO  9999. 

30  IF  (NOTHER  .EQ.  0)  WRITE (»,40) 

40  FORMAT (/,'  MAX  LINE3  -  ') 

CALL  INP(  1 ,0,0,1, 9999 , 40 , NAXL IN , MS , »30) 

43  RETURN 

USER  HANTS  ARITHMETIC  DIFFERENCE  BETHEEN  BA8E  AND  PERTURBED 
OUTPUT  TO  BE  PRINTED. 

SO  KPR-2 
RETURN 

USER  HANTS  X  CHAN6E  BETHEEN  BASE  AND  PERTURBED  OUTPUT  TO 
BE  PRINTED. 

60  KPR-1 
RETURN 

USER  HANTS  ALL  OUTPUTS  SORTED. 

70  KS0>1 
RETURN 

USER  HANTS  NO  OUTPUTS  SORTED. 

80  KSO-O 
RETURN 
C 

C  USER  HANTS  TO  USE  THE  SAME  MASK  EVERY  TINE  ONE  IS  NEEDED. 
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• 

► 

-V 

• 

90  IF  (NOTHER  .EQ.  0)  WRITE (• T 100) 

100  FORMAT!/, *  MASK-  *) 

CALL  INP(5,0,  XMA8K,0, 10,30,NHA8K,M5,t90) 

RETURN 

c 

» 

c 

USER  HANTS  A  PROMPT  EVERY  TINE  A  MASK  IS  NEEDED. 

c 

110  NMASK—1 

i  r 

RETURN 

;•  VS 

i* 

1  c 

USER  HANTS  THE  SANE  TITLE  ON  ALL  MODIFIED  FILES. 

i 

u 

120  IF  (NOTHER  .EQ.  0)  NRITE(#,130) 

130  FORMAT!/, *  TITLE"  ') 

' 

CALL  INP(5,0,XTITLE,0, 10, 130,NTITL,#43,*120) 

RETURN 

c 

» 

c 

r 

USER  HANTS  A  PROMPT  EVERY  TINE  A  TITLE  IS  NEEDED. 

I# 

140  NTITL—1 

. 

RETURN 

1  c 

-- 

c 

r 

USER  HANTS  TO  RESET  PARAMETERS  TO  THEIR  ORIBINAL  VALUES. 

1  . 

w 

130  CALL  RESET 

* 

RETURN 

vV'V 

c 

,  •* 

c 

USER  HANTS  A  LIST  OF  CHAN8E8  HHENEVER  ONE  IS  TO  BE  ASKED  FOR. 

izz 

c 

160  KL 1*1 

RETURN 

c 

c 

USER  HANTS  NO  CHANBES  TO  BE  LISTED. 

■-  V" 

c 

170  KLI"0 

'CiZ 

RETURN 

.**  .  •  v' 

END 

-I 

L'. 

SUBROUTINE  RESET 

c 

INTEBER  MASK, TITLE 

COMMON  /ALL/  NOTHER, KPR, KSO, KLI, NNASK, NTITL, MASK(IO) ,TITLE(10) 

i  ^  .  .. 

c 

COMMON  /LINES/  NAXLIN 

’•S'- 

c 

«  •  •  •  % 

c 

THIS  ROUTINE  RESETS  PARAMETERS  IN  /ALL/  TO  THEIR  ORIBINAL 

•  •*  •* 

i  c 

VALUES,  IN  ORDER  THAT  A  USER  PROMPT  HILL  BE  PRINTED  EVERY 

L 

c 

TIME  DIFFERENCE  OR  X  CHANGE,  SORT,  LIST,  MASK,  OR  TITLE 

c 

IS  NEEDED.  MAX  LINES  IS  RESET  TO  10. 

c 

CALLED  BY  MAIN,  SET 

:  c 

KPR-0 

*.i 

* 

KSO—1 
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KLI  —  1 

NHASK—1 

NTITL—l 

MAXLIN-10 

RETURN 

END 

SUBROUTINE  BIMILAU) 

C 

CHARACTERtlO  T1,T2 
C 

C  THE  R+H  FILES  USED  FOR  OUTPUT  RUST  BE  SIMILAR,  THAT  IS, 

C  CREATED  FROM  THE  SANE  QRIBINAL  DATA  BA8E,  80  AS  TO  HAVE 
C  THE  EXACT  SANE  NUMBER  OF  E0UIPMENT8,  ETC.  TO  A88URE  THI8 
C  COLUMNS  3-12  HAVE  A  UNIQUE  CODE  NHICH  IS  KEPT  DURING 
C  PERTURBATION  OF  FILE8.  IF  UNEQUAL,  NO  DICE. 

C 

RENINO  11 
REMIND  12 
READd  1 , 10)  T1 
READ(12, 10, END-99)  T2 
10  FORMAT (/,2X,A10) 

REMIND  11 
REMIND  12 

IF  (Tl  .EQ.  T2)  RETURN 
99  HRITE (*,20) 

20  FORMAT (/,'  80  SORRY!  —  INCOMPATIBLE  FILES') 

RETURN  1 
END 

SUBROUTINE  INP  (JFLAG, TABLE, TA82, MIN, MAX, JHELP, INT,#,#> 

THI8  SUBROUTINE  IS  USED  FOR  ALL  U8ER  INPUT  (EXCEPT  ABORTING 
PRINTOUTS).  THE  CALLING  PARAMETERS  AREt 

RETURN  Al-  IF  THE  USER  TYPES  X  (ABORT  EXIT). 

RETURN  A2-  IF  THE  USER  TYPES  H,  HE,  HEL,  OR  HELP,  PRECEDED 

BY  A  CALL  TO  HELP  MITH  PARAMETER  JHELP  (DESCRIBED 
BELON). 

JFLA6  -  INPUT  TYPE  DEFINED  ASl 

1  -  NON-NESATIVE  INTEBER 

2  -  REAL  NUMBER 

3  -  Y  OR  N  (RETURNS  1  OR  0) 

4  -  CHARACTER  STRING  FROM  TABLE 

5  -  CHARACTER  STRING  (MAX  10)  OF  USER'S  CHOICE 

TABLE  -  FOR  JFLA6-4,  AN  ARRAY  OF  LE8AL  INPUT  OPTIONS, 
DIMENSIONED  AT  MAX. 

TAB2  -  FOR  JFLA6>S,THE  ARRAY  INTO  NHICH  THE  USER'S  INPUT 
STRING  IS  STORED. 
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MIN  -  FOR  JFLA8S  OR  2,  THE  LOWER  LIMIT  OF  ACCEPTABLE 
RAN6E  OF  DATA. 

MAX  -  FOR  JFLAS"!  OR  2,  THE  UPPER  LIMIT  OF  ACCEPTABLE 
RAN6E  OF  OATA. 

-  FOR  JFLA8M,  THE  NUMBER  OF  INPUT  OPTIONS  (DIMENSION) 
OF  ARRAY  TABLE. 

-  FOR  JFLA8-3,  THE  MAXIMUM  NUMBER  OF  CHARACTERS 
ALLOUED  IN  THE  INPUT  STRIN6. 

JHELP  -  THE  REFERENCE  NUMBER  IN  THE  HELP  FILE  WHICH  PROVIDES 
ASSISTANCE  FOR  THIS  PROMPT. 

INT  -  FOR  FLA8S,  THE  INTESER  RESULT. 

-  FOR  FLA6-2,  THE  REAL  RESULT. 

-  FOR  FLA6>3,  0  FOR  N,  1  FOR  V. 

-  FOR  FLA8-4,  THE  OPTION  NUMBER  SELECTED  OR  P08ITI0N 
IN  TABLE  <1  <■  INT  <■  MAX). 

-  FOR  FLAS-3,  THE  NUMBER  OF  CHARACTERS  IN  TAB2  WHICH 
THE  USER  INPUT. 

EQUIVALENCE  (JNIN,AMIN) , (JMAX , AMAX) , (JINT.AINT) 

CHARACTERS  BL,COM, X , AHELP (3) ,CH(80) , CHAR 
CHARACTERS  TAB2(10) , DEC ( 1 0 ) 

CHARACTERtlO  TABLE (12) 

INTESER  MASK, TITLE 

COMMON  /ALL/  J ,KPR,KSO,KLI ,NMASK,NTITL, MASK ( 10) .TITLE ( 10) 
COMMON  /HINT/  JHINT 

DATA  BL.COM, X .AHELP/ '  ’.'.'.’X'.’H'.'E'.'L'.'P’,'  '/ 

J  IS  NEXT  POSITION  (1  THRU  80)  OF  NEXT  INPUT  CHARACTER  STORED  IN 
CH.  IF  ZERO,  NO  INPUT  IS  EXPECTED  FROM  TERMINAL.  IF  POSITIVE, 
DATA  IN  CH  IS  REMAINDER  FROM  NEXT  CALL. 

IF  (J  .EQ.  0)  READ  <»,5>  CH 
3  FORMAT (80A1) 

IF  NEXT  CHARACTER  IS  X  FOLLOWED  BY  BLANK  OR  COMMA,  USE  ABORT 
EXIT. 

CHAR»CH(JS) 

IF  (CHAR  .NE.  X)  SOTO  10 
CHAR«CH(J+2) 

IF  (CHAR  .ES.  BL)  SOTO  8 
IF  (CHAR  .NE.  COM)  SOTO  10 
J-J+2 
RETURN  1 
8  J-0 
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RETURN  1 


IF  USER  TYPED  HELP  OR  ANY  PART  OF  IT,  CALL  HELP  TO  PROVIDE 
ASSISTANCE.  THEN  RETURN  TO  REPRINT  THE  PROMPT. 

10  IF  (CHAR  .HE.  AHELP(l))  SOTO  IS 
DO  13  K"2,S 
CHAR*CH(J+K) 

IF  (CHAR  .EQ.  BL)  SOTO  14 
IF  (CHAR  .NE.  AHELP(K) )  SOTO  IS 

13  CONTINUE 

14  CALL  HELP(JHELP) 

JaO 

RETURN  2 


IS  SOTO  (20,100,300,700,800) , JFLA8 

READ  FIRST  CHARACTER  OF  INTE6ER.  I8N0RE  BLANK  OR  ONE  PLUS. 

ERROR  ON  -  OR  .  OR  ,  OR  ANY  LETTER. 

20  KP«0 
30  J«J*1 

IF  <4  .ST.  80)  SOTO  1000 
CALL  FIND(CH(J) , KODE ) 

IF  (KODE  .LT.  1  .OR.  KODE  .ST.  14)  SOTO  1000 
IF  (KODE  .LT.  11)  SOTO  40 
K0DE-K0DE-10 

SOTO  (30, 1000, 1000,33), KODE 

ALLON  ONLY  ONE  PLUS  3I8N 

33  IF  (KP  .EQ.  1)  SOTO  1000 
KP-1 
SOTO  30 

INITIALIZE  NUMBER.  THEN  SET  NEXT  DISIT.  BLANK  OR  COMMA  IS  DELIMITER. 

40  INT-KODE-1 
SO  J«J*1 

IF  (J  .ST.  80)  SOTO  1000 
CALL  FIND(CH(J) ,KODE) 

IF  (KODE.  LT.  1  .OR.  KODE  .ST.  13)  SOTO  1000 
IF  (KODE.  LT.  11)  SOTO  60 
SOTO  70 

CONVERT  DIBIT.  SET  NEXT  NUMBER 

60  INT«INT*10  ♦  KODE-1 
SOTO  SO 
C 

C  CHECK  RAN8E  (UNLESS  NOT  REQUIRED). 
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C 


70  IF  (MIN  .EQ.  0  .AND.  MAX  .EQ.  0)  BQTQ  80 

IF  (INT  .LT.  MIN  .OR.  1NT  .8T.  MAX)  BOTO  1000 

ASSURE  PROPER  TERMINATION. 

IF  COMMA,  MORE  DATA  F0LL0HS  FOR  NEXT  PROMPT.  IF  BLANK,  KEEP 
L00K1N8.  ANYTH I N6  BUT  BLANK  OR  A  COMMA  IS  ILLE8AL. 

80  IF  (CH(J)  .EQ.  CON)  RETURN 
82  J*J*1 

85  IF  (J  . BT .  80)  6QT0  90 

86  IF  (CH(J)  .EQ.  COM)  RETURN 
IF  (CH(J)  .NE.  BL)  BOTO  1000 
60T0  82 

90  3*0 
RETURN 

READ  FIRST  REAL  CHARACTER.  ,  18  ERROR.  SET  FLAB8  FOR  OTHERS. 
KD,  KM,  AND  KP  ARE  SET  TO  1  UPON  OCCURENCE  OF  DECIMAL, MINUS 
SI8N,  OR  PLUS  318N. 

100  KD*0 
KM-0 
KP-0 
FACT*. 1 

110  J-J+l 

IF  (J  .BT.  BO)  SOTO  1000 
CALL  FIND(CH(J) ,KQDE) 

IF  (KODE  .LT.  1  .OR.  KODE  .ST.  15)  BOTO  1000 

IF  (KODE  .LT.  11)  80T0  160 

K0DE-K0DE-10 

SOTO  (150, 1000, 120, 140, 130), KODE 

SET  UP  FOR  FRACTION 

120  IF  (KD  .EQ.  1)  60TO  1000 
KD-1 

BOTO  110 

SET  UP  NE6ATIVE  NUMBER 

130  IF  (KD+KP+KM  .NE.  0)  SOTO  1000 
KM*  1 

SOTO  110 

PLUS  IS  NOT  ALLONED  AFTER  ANYTHINB  ELSE 

140  IF  (KP+KD+KM  .NE.  0)  80TO  1000 
KP*1 

SOTO  110 
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C  NO  BLANKS  AFTER  A  DEC I HAL 
C 

ISO  IF  (KD)  110,110,1000 

SET  UP  FIRST  DIBIT 

160  AINT-K0DE-1 

IF  (KD  ,E0.  0)  SOTO  170 
AINT-A1NT«FACT 
FACT-FACT*. 1 

SET  NEXT  CHARACTER 

170  J-J+i 

IF  <J  .ST.  80)  SOTO  1000 
CALL  FIND(CH(J),K0DE) 

IF  (K0DE  .IT.  1.  OR.  K0DE  .ST.  13)  SOTO  1000 
IF  (KQDE  .LT.  11)  SOTO  190 
IF  (K0DE  .EQ.  13)  SOTO  180 
B0T0  300 

FIX  DECIMAL  POINT 

180  IF  (KD  .EQ.  1)  SOTO  1000 
KD-1 

SOTO  170 

INSERT  NEXT  NUMBER 

190  IF  (KD  .EQ.  1)  SOTO  200 
AINT-AINTtlO.O  *  KODE-1 
SOTO  170 

200  AINT-AINT  *  (KODE-1 ) *FACT 
FACT-FACT#. 1 
SOTO  170 

SET  NEBATIVE  IF  A  MINUS  8I8N  HAS  ENCOUNTERED.  INT  IS  THEN 
SET  AS  THE  RESULT  BY  SETTIN6  TO  JINT  HHICH  IS  EQUIVALENCES 
TO  AINT.  ALL  THIS  IS  NECESSARY  TO  AVOID  CONVERSION  NHEN 
8T0RIN6  THE  RE8ULT  IN  INT.  SIMILARLY,  NO  CONVERSION  IS 
HANTED  NHEN  L00KIN8  AT  MIN  AND  MAX. 

300  IF  (KM  .EQ.  1)  AINT— AINT 
INT-JINT 
JMAX-MAX 
JMIN-HIN 

IF  (AMAX  .EQ.  0.0.  AND.  AMIN  .EQ.  0.0)  SOTO  80 
IF  (AINT  .LT.  AMIN  .OR.  AINT  .ST.  AMAX)  SOTO  1000 
SOTO  80 

CHECK  FOR  Y  OR  N 


u  uu  u  u  u  u  u  u  u  u  u 


200  K—IO 

IF  (K  .LE.  2)  SOTO  201 
K-K-i 

IF (K  .ST.  6)  K-K-3 

201  INQUIRE (FILEaFILE8(K) ,OPENED-OPENED> 

IF (OPENED)  CLOSE  (-10) 

IF (K  .EQ.  3  .OR. 

•  K  .EQ.  6  .OR. 

•  K  .EQ.  10  .OR. 

•  K  .EQ.  11)  SOTO  202 

OPEN(-IO,  FILE  •  FILES(K),  STATUS* 'NEN') 

SOTO  100 

202  OPEN(-IO,  FILE  ■  FILES (K) T  STATUSa‘NEN' ,  FORM" 'BINARY ' ) 

SOTO  100 

END 

BLOCKDATA 

CHARACTER*?  AFID.SEID 
CHARACTERS  8EQ1D,LEQID 

CONNON  /EQ I DS/  8EQID(40) ,LEQID<120> ,AFID(SO) ,SEID(30) 

CONNON  /SIZES/  N8UB,NLRU,KLRU(40) ,NUHL(40> fNAF,NSE,NDS,NAI 
CONNON  /C08TI0/  IOIN, IQUT,NTH 

CONNON  /SHARE/  SIN(40,4> ,RUIN < 120, 13) , AFIN(30, IS) ,BEIN(30,9) , 

•  08E (SO , 2) , AIDATA (SO) , COSTS (27) , SCAL ( 78) 

CONNON  /ERR/  JERR,KQUNT 

CHARACTERS  FIELDS 
CONNON  /EX/  FIELDS (S) 

CONNON  /OVER/  JABT, 102, I04A,JN,NHAX,LAST 

INTESER  MASK, TITLE 

CONNON  /ALL/  NOTHER , KPR , KSQ , KL I , NNASK , NT I TL , HA8K ( 1 0 ) , T I TLE (10) 

CONNON  /HINT/  JHINT 

CHARACTER* 1  COLS (BO) 

CONNON  /NODIF/  IT, COLS 

CHARACTERfl  XHA8K,NENT 
CONNON  / JJF/  XHASK ( 10) , NEWT (10) 

CONNON  /RAN/  SDAT(40,9,2) ,U0AT(120,7,2) ,ADAT(S0,3,2) ,EDAT(50,2,2) 


CHARACTER*?  SFSE,SFAF8C 

CONNON  /SHAREX/  TSFL (7,40) ,PSN(7,40) ,SFSE(2,7,40) , SFAFSC (3 , 7 , 40) , 
l  N8AFSC (7,40) ,NSF8E (7 ,40) ,FHBNA(40) ,HFAC (40) 
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2  WRITE (• TS) 

S  FORMAT*/, '  R+M  FILE  NOT  ATTACHES.’) 

SOTO  500 

PROMPT  FOR  TINE,  PROS,  OR  NFHBHA.  THEN  UNLESS  MFHBMA,  PROMPT 
FOR  TASK. 

JT  -  1-3  FOR  SHOP 

6-12  FOR  FLISHTLINE 
13  FOR  MFHBMA  IF  IT-3 
13  FOR  CND  IF  IT  -  1  OR  2 

10  IF  (NOTHER  .EQ.  0)  WRITE(*,20) 

20  FORMAT*/,'  R+M  VARIABLE?  ') 

CALL  INP(4, VARY, 0,0, 27, 80, IV, *300, *10) 


IF 

(IV-26)  23,30,35 

23  IT 

■  3 

IF 

(IV  .LE.  24) 

IT  ■ 

2 

IF 

(IV  .LE.  12) 

IT  • 

1 

JT 

-  13 

IF 

(IV  .LE.  23) 

JT  - 

IV 

-  10 

IF 

(IV  .LE.  17) 

JT  ■ 

IV 

-  11 

IF 

(IV  .LE.  12) 

JT  - 

IV 

IF 

(IV  .EB.  4 

.OR. 

IV 

.EB. 

16) 

JT  ■ 

7 

IF 

(IV  .EB.  6 

.OR. 

IV 

.EB. 

IB) 

JT  ■ 

4 

IF 

(IV  .EB.  16) 

JT  « 

3 

PROB  «  IT. EQ. 2 

SHOP  «  JT.LE.3 

TEST  -  JT.EB.4  .OR.  JT.E0.3 

SOTO  46 

30  CALL  DEFINE 
SOTO  10 
33  CALL  SET 
SOTO  10 

46  IF  (NTITL  .EQ.  -1)  SOTO  47 
NT-NTITL 

SOTO  49 

47  IF  (NOTHER  .EB.  0)  WRITE (»,4B) 

48  FORMAT*/,'  NEN  TITLE?  ') 

CALL  INP(3,0,NENT,0, 10, 130,NT,*10,*47) 

SPECIAL  CASE  IF  JT-13  AND  IT-2  (FLISHTLINE  *  SHOP  CND  PROBABILITY 
COMBINED). 

49  IF  (JT  .NE.  13  .OR.  IT  .EB.  3)  SOTO  30 
CALL  NODCND(NENT) 

SOTO  300 

?0R  PROBABILITY  MODIFICATION,  FACTOR  IS  NECESSARY  (KP-2), 
OTHERWISE  BIAS  (1)  OR  REPLACE  (3)  IS  ALLOWED. 
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SOTO  70 

SI  IP  (NOTHER  .E0.  0)  WRITE(#,A0> 

60  FORMAT (/, '  TYPE?  ') 

CALL  IMP (4, PERT , 0,0,3, 100, KP,* 10, *50) 

70  IF  (NOTHER  .EQ.  0)  WRITE (• ,80)  PERT(KP) 

80  FORMAT (/, 1 X , A7, '■  ') 

CALL  INP(2,0,OlO,OlllOtVAL,*lOl«70) 

IF  (NHASK  .EQ.  -1)  SOTO  90 
HK-NMASK 
SOTO  10S 

90  IF (NOTHER  .EQ.  0)  WRITE (* , 100) 

100  FORMAT (/,'  MASK-  ') 

CALL  INP(Sf0fXHA8K,0,7,120lHKt*10l«90) 

10S  IF  (KLI  .EQ.  -1)  SOTO  110 
IL-KLI 
SOTO  121 

110  IF  (NOTHER  .EQ.  0)  WRITE (*f 120) 

120  FORMAT ( / ,  *  DO  YOU  MANT  A  LISTING  OF  THE  CHAN6ED  ITEMS? 

CALL  INP(3,0,0,0,0,2,IL,*10,*110) 

THE  SCHEME  IS  TO  READ  JIN  ONE  RECORD  AT  A  TIME  AND  MODIFY  THE 
DATA  AND  WRITE  TO  JOUT. 

(COUNT  *  PRINT  LINE  COUNT 
KTOT  -  TOTAL  CHAN8E8  OF  8ELECTED  TASK 
LTOT  ■  TOTAL  CHAN8ES  OF  AFFECTED  LRUS 
NSUB  ■  BUMPED  FOR  EACH  SUBSYSTEM  IN  THE  MASK 
ITRUNC  ■  NUMBER  OF  MODIFICATIONS  TRUNCATED  TO  LESS  THAN 
DESIRED  FACTOR 

INONE  >  NUMBER  OF  MODIFICATIONS  WHICH  COULD  NOT  BE  CHAN8ED 

121  REWIND  11 
KOUNT-O 
KTOT-O 
LTOT-O 
N8UB-0 
ITRUNC-0 
!NONEaO 

READ  FIRST  RECORD.  INSERT  TITLE.  SKIP  TO  WRITE  OUTPUT. 

READ <llt140)  COLS 
DO  123  K-1,10 

COLS (70+K) -NEWT (K) 

123  CONTINUE 
SOTO  143 
C 

130  READUl,  140, END-480)  COLS 
140  FORMAT (B0A1) 
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C  KEEP  READIN6  AND  MRITIN6  TILL  ME  SET  PROPER  CARO  FORMAT. 

C 

IF  (C0LS<1)  .ME.  Cl (IT))  SOTO  14S 

COLON  IS  TRUE  IF  THE  CARO  IS  OF  THE  SHOP/FL  THAT  MATCHES  HHAT 
ME* RE  MQDIFYINB. 

C0LUMaC0LS(2) .EQ.C2IJT) 

H0DIFY1N6  FLIBHTLINE  PROB  MILL  AFFECT  SHOP  AS  MELL. 

IF  (PROB  .AND.  .NOT.  SHOP)  SOTO  142 

0THERNI8E  CARD  TYPE  MUST  BE  EXACT. 

IF  (.NOT.  COLUM)  SOTO  14S 
142  CALL  HATCH(HK,XMA3K,AfC0LB(4) ,*143) 

SOTO  ISO 

MS  MRITE(12,140)  COLS 
SOTO  130 

FIND  THE  SUBSYSTEM  FOR  THIS  LRU. 

ISO  IF  (COLUM)  SOTO  1SS 

MRITE(TSUB,3A0)  (C0L8(K) ,K>4,8) 

00  1S2  J-1,NSUB 
IF  (SUB(J)  .EO.  T8UB)  SOTO  1S4 

152  CONTINUE 
MRITE<*,133)  N8UB 

153  FORMAT (/,'  LCCIM  SYSTEM  ERROR  r,I5> 

SET  FACTOR  TO  PAS8  DONN  FROM  SUBSYSTEM  TO  SHOP.  ADD  TO 
LRU'S  AFFECTED. 

134  F-FACT(J) 

DO  ISA  J-1,3 
CALL  SLAP( J | STRIP (J ) *F) 

ISA  CONTINUE 
LTQT-LTOT+t 
SOTO  14S 

PRINT  HEADER  FOR  LI8TIN8  OF  EOUIPMENTS  MODIFIED  AS  REOUESTED. 


133  KTOT-KTOT+l 

IF  (KTOT  .EO.  IL)  WRITE  (*, 137) 

137  FORMAT (  / ,  ’  EQUIP  * ,3X 'RHBASE * ,3X ' RMPERT ’ ) 

C 

OLO-STRIP(JT) 

C 

IF  (KP-2)  170,180,190  ‘"-''  'I 


ooo  non  n  n  n  n  oooo  oor»o  n  n  n 


C  BIAS 
C 

170  6NU-0LD+VAL 
SOTO  200 

FACTOR 

180  8NU-QLD*VAL 
SOTO  200 

REPLACE 

190  SNU-VAL 

200  IF  (.NOT.  PR0B)  SOTO  470 

IF  (SHOP  .AND.  .NOT.  TEST)  SOTO  220 

FOR  FLI6HTLINE  OR  TEST  STATION  PROBABILITIES,  REPLACE  FACTOR 
(VAL)  IF  RESULT  >  .99.  COUNT  TRUNCATIONS. 

IF  (6NU  .IT.  1.0)  SOTO  210 
BNUa. 93 
VAL-8NU/0LD 
ITRUNC-ITRUNCM 
210  IF  (TEST)  SOTO  470 
SOTO  300 

FOR  SHOP  PROBABILITIES,  SET  JT1  AND  312  TO  THE  OTHER  TNO  SHOP 
TASKS  AND  EXTRACT  THE  PROBABILITIES. 

220  JT1-H0D(JT,3>+1 
JT2»H0D(JT+1,3)+1 
S1»STRIP(JT1) 

S2»STRIP(JT2) 

F-31+82 

IF  VALUE  FOR  CHANSING  IS  THE  ONLY  ONE,  IT  CANNOT  BE  CHANGED. 

IF  (F  .ST.  0.0)  SOTO  260 
INQNE-INONE+1 
SOTO  479 

IF  THE  REQUIRED  CHANGE  MOULD  PUT  THE  TOTAL  OVER  1.0  TRUNCATE. 

260  IF  (8NU  .LT.  F+OLD)  SOTO  270 
1TRUNC-ITRUNC+1 
BNU». 93* (F+OLD) 

270  F« (F+0LD-6NU) /F 
S1-S1*F 
S1«S1*F 
S2»S2*F 


o  r>  o  n  r>  n  n  n  n  n  r>  o  n  r>  nnnnnn  r»  o  r» 


C  REPLACE  THE  OTHER  THO. 

C 

280  CALL  8LAP(JT1,81) 

CALL  3LAP(JT2,82) 

SOTO  470 

H00  TO  FL18HTL1NE  PROB 
300  IP  (JT-8)  310,320,305 

USER  H0D1FY  OTHER  THAN  TROUBLESHOOT  OR  CANNOT  DUPLICATE. 

8NAX  IS  TROUBLESHOOT  PROBABILITY. 

IF  H0DIFYIN6  R+R  OR  HAC  WOULD  HAKE  IT  EXCEED  THE  HAX,  ME 
TRUNCATE  IT.  THEN  MODIFY  THE  OTHER  THREE. 

305  8NAX*8TRIP<7) 

IF  (BNU  .LT.  8HAX)  SOTO  308 
VAL«.95#8MAX/0LD 
6NU-0LDWAL 
ITRUNC-ITRUNC+1 

308  IF  (JT  . EO.  9  .OR.  JT  .Efi.  11)  SOTO  330 
BOTO  340 

USER  MODIFY  TROUBLESHOOT.  CANNOT  DUPLICATE  BECOMES  COMPLEMENT. 
R+R  AND  MAC  MODIFIED  BY  SAME  AMOUNT  AS  TROUBLESHOOT. 

310  CALL  SLAP(8,1.0-8NU) 

F«VAL 

312  DO  315  J*9,12 

CALL  SLAP<J,8TRIP<J)#F) 

315  CONTINUE 
BOTO  350 

U8ER  MODIFY  CNO.  TROUBLESHOOT  BECOMES  COMPLEMENT. 

F  IS  FACTOR  TO  PASS  DOWN  TO  SHOP,  REPRESENTINB  AMOUNT  OF  R+R 
CHAN8E. 

320  TS»1.0-8NU 
TS0LD-8TRIP(7) 

CALL  SLAP(7,TS) 

F-TS/TSOLO 
60T0  312 

HERE  ME  MODIFY  THE  THREE  TASKS  OUT  OF  THE  LAST  FOUR  (9,10,11,12) 
COMPOSED  OF  R+R,  MAC,  VR+R,  VMAC,  EXCLUDING  THE  ONE  ME  SELECTED 
TO  MODIFY.  F  13  FACTOR  TO  PASS  DOWN  TO  SHOP. 

330  CALL  SLAP(20-JT,8NU) 

CALL  SLAP ( 10,BMAX-GNU) 

CALL  SLAP ( 12 ,8MAX-SNU) 

F«VAL 
SOTO  350 
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340  CALL  SLAP(22-JT,6NU) 

RR-8HAX-8NU 

RR0LD»8TRIP(9> 

CALL  SLAP(9tRR) 

CALL  3LAP< 1 1 ,RR) 

F-RR/RR0L0 

SET  FACTOR  FOR  LRUS 

3S0  NSUB-NSUB+1 

NRITE (TSUB, 360)  (COLS(K) ,K-4, 8) 

360  FORMAT (SA1) 

FACT (NSUB)«F 
SUB (NSUB) "TSUB 

FOR  ALL  MODIFICATIONS,  THE  SELECTED  FIELD  IS  REPLACED  HERE 

470  CALL  SLAP(JT ,8NU) 

473  IF  (IL  .EQ.  0)  SOTO  143 
CALL  ABORT (K0UNT,#143) 

PFQRH(2)"F0RH(IT) 

PFORH ( 4 ) "FORM (IT) 

HR ITE ( t , PFORHX )  (COLS  < K) , K-4 , 1 0 > , OLD , BNU 
SOTO  143 


480  HRITE(#,490)  KTOT 

490  FORMAT (// , IX, 14, '  CHANSES.') 

IF  (ITRUNC  .HE.  0)  HRITE<#,493)  ITRUNC 
493  FORMAT (IX, 14,  '  TRUNCATIONS. ‘ ) 

IF  (INONE  .ST.  0)  HRITE(*,496>  INONE 

496  FORMAT (IX, 14, *  NOT  CHANSED. ') 

IF  (LTOT  .ST.  0)  NRITE<»,497)  LTOT 

497  FORMAT (IX , 14,  '  LRUS  CHANSED.') 

300  RETURN 
END 

FUNCTION  STRIP (JT) 

THIS  FUNCTION  EXTRACTS  A  VALUE  FROM  AN  R+M  CARD  PASSED  IN 
ARRAY  COLS. 

CALLED  BY  MODIFY,  MODCND 

JT  -  SPECIFIES  THE  COLUMNS  FROM  HHICH  THE  DATA  IS  TO  BE 
EXTRACTED  BY  USINS  STARTIN8  COLUMN  LBES. 

IT  -  SELECTS  THE  PROPER  FORMAT. 

1  -  TIME 

2  -  PROBABILITY 

3  -  MFHBMA 


onno  o  n  r»oooooor>r»r»or»or»oc»  r>  o  o 


DIMENSION  L8E8(13> 

CHARACTER*! 0  F0RM(3),TEMP 
C 

CHARACTER*!  COLS 
COMMON  /MODIF/  IT, COLS (80) 

DATA  LBE8/19, 23, 31, 49, S3, 13, 19, 23, 31, 37, 43, 49, 14/ 

OATA  FORM/ ' (FA. 1) * , ' (FA. 4) * , ' (FA. 1 ) * / 

SET  8TART1NS  AND  ENDIN8  C0LUMN8.  COMBINE,  THEN  DECODE. 

JlaLBE8(JT) 

J2-J1+3 

WRITE (TEMP, 10>  (COLS (X) ,KaJl , J2) 

10  FORMAT (AA1) 

READ (TEMP, FORM (IT) )  STRIP 
RETURN 
END 

SUBROUTINE  8LAP(JT,C) 

THIS  SUBROUTINE  PERFORMS  THE  REVERSE  FUNCTION  OF  STRIP, 
PLAC1N8  A  VALUE  INPUT  ONTO  AN  R+M  CARD. 

CALLED  BY  MODIFY,  MODCND 

JT  -  SPECIFIES  THE  COLUMNS  ONTO  WHICH  THE  DATA  IS  TO  BE  CODED 
BY  U8INB  3TARTIN8  COLUMN  LBE8. 


C  -  VALUE  TO  BE  STORED. 

IT  -  SELECTS  THE  PROPER  FORMAT. 

1  -  TIME 

2  -  PROBABILITY 

3  -  MFHBHA 

DIMENSION  LBE8(13) 

CHARACTER* 10  FORM (3), TEMP 

CHARACTER* 1  COLS 
COMMON  /MODIF/  IT, COLS (SO) 

DATA  LBE8/ 19, 23, 31, 49, 33, 13, 19, 23, 31,37,43, 49, 14/ 
DATA  FORM/ ' (FA. 1) ' , ' (FA, 4) ','(FA.t> ’/ 


SET  START1N8  AND  END1N8  COLUMNS.  ENCODE,  THEN  PUT  ON  CARD. 

JlaLBEB(JT) 

J2-J1+3 

WRITE (TEP1P  ,FORM ( IT)  I  C 
READ(TEHP, 10)  (COLS(K) ,K«J1 , J2> 

10  FORMAT (AA1) 
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RETURN 

END 

SUBROUTINE  MODCND  (NENT) 

THIS  ROUTINE  IS  A  SPECIAL  CASE  OF  MODIFY  WHERE  THE  USER  HAS 
SPECIFIED  'CND',  MEAN INS  MODIFY  BOTH  8H0P  AND  FLI6HTLINE 
PROBABILITY,  WITH  RESULTANT  MODIFICATION  TO  NFHBNA. 

CALLED  BY  MODIFY 

NENT  ■  TITLE  OF  NEW  FILE 
FCND  •  FLI8HTLINE  CANNOT  DUPLICATE  FACTOR 
CFCND  ■  COMPLEMENT  OF  FCND 
SCND  •  SHOP  CANNOT  DUPLICATE  FACTOR 
CSCND  •  COMPLEMENT  OF  SCND 

PK  >  SUM  OF  SHOP  CANNOT  DUPLICATE  FOR  SUBSYSTEM 

-OR- 

OLD  FLI6HTLINE  CND  PROBABILITY 
JSUB  •  NUMBER  OF  SUBSYSTEM  CHANSES 
JLRU  >  NUMBER  OF  SHOP  CHANSES 
KT  ■  CARD  TYPE  COUNTER 
JHIT  •  1  IF  CARD  READ  18  OF  INTEREST 

DIMENSION  PK(32) 

CHARACTER**  FIELD 
CHARACTER*!  SCOL (S) ,NEWT (10) 

CHARACTERS  TSUB,SUB(32) 

CHARACTER»2  SF(3),CC 

CHARACTER*!  C0L8 
COMMON  /MOOIF/  ITvC0LS (80) 

INTESER  MASK, TITLE 

COMMON  /ALL/  NOTHER,KPR,KSO,KLI ,NMASK,NTITL,NA6K ( 10) , TITLE ( 10) 

CHARACTER*!  XMASK,XTITLE 
COMMON  /JJF/  XMASK(IO) ,XTITLE(10) 

EQUIVALENCE  (C0LS(4) , SC0U1) ) 

DATA  SF/ 'PF ' , 'PS ' , 'MF ' / 

IT»2 

10  IF  (NOTHER  .EQ.  0)  WRITE (*,20) 

20  FORMAT (/, '  FLISHTLINE  CND  FACTOR  ■  ') 

CALL  INP <2, 0,0,0. 0,99999. 0,1 10. FCND, *230, *10) 

CFCND- 1.0-FCND 

30  IF  (NOTHER  .EQ.  0)  WRITE (*,40) 

40  FORMAT (/,’  SHOP  CND  FACTOR  -  ') 

CALL  INP <2, 0,0, 0.0, 99999. 0,1 10, SCND, *230, *30) 

CSCND- 1.0-SCND 

IF  (NMA8K  .EQ.  -1)  SOTO  30 

MK-NMA8K 
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SOTO  AS 

50  IF  (NOTHER  .EQ.  0)  NRIT£<*,60> 

60  FORMAT (/, '  MASK-  ') 

CALL  I NP ( 5 , 0 , X  M  ASK , 0 , 7 , 1 20 , HK , #230 , *50 ) 

FIRST  SET  OLD  SCND  TOTALS  PER  SUBSYSTEM 

65  REMIND  11 
NSUB-0 

70  READ(11,80,END-10S)  CC,SC0L, FIELD 
80  FORMAT (A2, 1X,5A1 , 16X ,A6) 

IF  (CC  .NE.  SF (2) )  IF  (N8UB)  70,70,110 
CALL  HATCH ( HK , X N ASK , 5 , COLS ( 4 ) ,*70) 

HR!TE(T8UB,170)  SCOL 
READ (FIELD, 85)  VAL 
85  FORMAT (F6.4) 

IF  SUBSYSTEM  IS  ALREADY  TALLIED,  ADD  TO  IT. 

IF  (NSUB  .EO.  0)  SOTO  100 
DO  90  J a 1 , NSUB 
IF  (TSUB  .NE.  SUB(J) )  SOTO  90 
PK(J)-PK(J)+VAL 
SOTO  70 
90  CONTINUE 
100  NSUB-N8UB+1 
SUB (NSUB) -TSUB 
PK (NSUB) -VAL 
SOTO  70 

105  MRITE(*,106) 

106  FORMAT (/,'  NO  DATA') 

NOTHER-O 

SOTO  50 

NON  COPY  JIN  TO  JOUT,  CHANBIN6  PF,  PS,  AND  MF  CARDS 

110  REMIND  11 
REMIND  12 
J3UB-0 
JLRU-0 
JFHB-0 
KT-t 
JHIT-0 

FIRST  READ  HEADER  CARD,  INSERT  TITLE,  SKIP  TO  MRITE  OUTPUT. 

REAO (11,120)  CC, (CQLS(K) ,K-3,80) 

120  FORMAT (A2,78A1 ) 

DO  130  K-1,10 

COLS (70+K) -NEMT (K) 

130  CONTINUE 


uuuu  uuu  u  u  u  u  u  u  uuu 
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C  REPLACE  SHOP  PROBABILITIES.  PK  IS  OLD  FLI8HTLINE  CND 
C 

210  FACT-1. 0-CFCND#PK<J> 

CALL  SLAP( 1 ,3TR1P( 1 ) /FACT) 

CALL  SLAP(2,BTRIP(2)#8CND/FACT) 

CALL  SLAP <3f STRIP (3) /FACT) 

CALL  SLAP (4, STRIP (4) /FACT) 

CALL  SLAP (3, STRIP (3) /FACT) 

JLRU-JLRU+1 
SOTO  ISO 

REPLACE  FHBHA.  PK  IS  STILL  OLD  FLI6HTLINE  CND 

220  CALL  SLAP ( 13 (STRIP (13) / ( 1 . 0-CFCND*PK  ( J) ) ) 

JFHB-JFHB+1 
SOTO  ISO 
C 

225  WRITER, 226)  JSUB.JLRU 

226  FORMAT (// , IX , 14 , '  FLISHTLINE  CHANGES ‘/ 14 ( '  SHOP  CHANGES') 
IF  ( JSUB  .EB.  NSUB  .AND.  NSUB  .EB.  JFHB)  GOTO  230 
NRITE<*,227)  NSUB, JFHB 

227  FORMAT ( '  LCCIN  SYSTEM  ERROR  3’ ,213) 

NOTHER-O 

230  RETURN 
END 

SUBROUTINE  RHODEL 
C 

C  THIS  SUBROUTINE  INITIATES  R+M  HOOEL  CALCULATIONS.  DATA  IS 
C  READ  FROM  CARDS  TO  /TEMPRM/  AND  /SHARE/,  THEN  CONVERTED  TO 
C  OUTPUTS  AND  STORED  IN  /RAM/.  IF  THE  USER  WANTED  TO  COMPARE 
C  WITH  A  PERTURBED  FILE,  THE  PROCESS  IS  REPEATED  BUT  STORED  IN 
C  SUBSCRIPT  2  OF  /RAM/. 

C  CALLED  BY  MAIN 


DIMENSION  TRIXS(SO) ,TRIXL(SO) 

COMMON  /OVER/  JABT , 102, I04A, JN,NHAX ,LABT 

COMMON  /RAM/  SDAT<40,9,2) , UD AT ( 1 20 , 7 , 2 ) ,ADAT(30,3,2) ,EDAT (50,2,2) 
CHARACTER*?  SFSE,SFAFSC 

COMMON  /SHAREX/  TSFL (7,40) ,PSH (7,40) , SFSE (2 , 7 , 40) ,SFAFSC(5,7,40) , 

•  NSAFSC (7,40) ,NSFSE<7,40) , FHBHA (40) ,HFAC(40> 

CHARACTER*?  LSAFSC.LSE 

COMMON  /TEMPRM/  TLSH0P(3, 120) ,PLRR (3, 120) ,LSAFSC <3,5, 120) , 

•  LSE (2,3, 120) ,NLAFSC (3, 120) , NLSE (3,120) , 

•  WEIGHT (120) ,NSRU (120) 

COMMON  /SIZES/  NSUB ,NLRU,KLRU (40) ,NUML (40) , NAF ,NSE ,ND8,NAI 


vj 

I  J 


«  *  •**  •  %  *  •  *  *  *  -  *  •  "  •  * 


/•  -V  »'*  k*‘  .*• 
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CHARACTERS  AF I D ,  8E I D 
CHARACTER#?  SEQID,LEOID 

COHHON  /EQID8/  SEBID(40) ,LEBID(t20) ,AFID(30) ,8EID<30> 

C 

C 

C  LOOP  IS  INITIALLY  SET  TO  1.  LAST ( 1)  IS  ZERO  THE  FIR8T6  TINE 
C  BUT  IS  SET  TO  THE  R+H  PILE  UNIT  NUMBER  US  D  FOR  INPUT  IN 
C  RHREAD.  IF  LATER  THE  USER  USES  THE  SANE  FILE,  THE  MODEL 
C  HILL  NOT  RECALCULATE.  (THE  EXCEPTION  IS  WHEN  MODCST  MODIFIES 
C  /RAH/,  AND  LAST  IS  SET  TO  ZERO,  OR  MODIFY  CREATE8  A  NEH  R#H 
C  FILE. 

C 

LOOP-1 

IF  (LAST  ,EQ.  1)  SOTO  100 
HHHIO-4 

CALL  CHECK(-4,#998) 

CALL  CHECK (-7, #998) 

LAST  ■  1 
N8E-0 
NAF-0 

10  CALL  RHREAD (LOOP# 10, #200) 

FIRST  SET  SUBSYSTEM  FLISHTLINE  DATA  (POSITIONS  2,  S,  ADN  8  IN  SDAT) 

DO  SO  JSUB-l.NSUB 
FH-FHBHA(JSUB) 

SDAT(JSUB,8,L00P)-FH 
PKFH-1000./FH 
HF  -  HFAC(JSUB) 

TTR-0.0 
EMM-0.0 

INITIALIZE  NHH  MATRIX 
DO  12  J-1,30 

TRixsm-o.o 

12  CONTINUE 

ADD  UP  MTTR  AND  HHH/KFH  FOR  ALL  7  FLISHTLINE  TASKS. 

DO  20  J-1,7 

X  •  TSFL ( J , JSUB)  »  PSM ( J , J SUB ) 

TTR-TTR+X 
N-NSAFSC ( J , JSUB) 

IF  (N  .EO.  0)  SOTO  20 
EMM-EMM#X#N 

FOR  EACH  AFSC  REOUIRED  FOR  THE  TASK,  COLLECT  STATS  IN  'FILE'. 

DO  IS  K-1,N 

CALL  FILE (SFAFSC (K, J, JSUB) ,X/FH,t, LOOP, JAP, #200) 

TRIXS  < JAF) -TRI XS ( JAF) #X/FH 
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13  CONTINUE 
20  CONTINUE 

80NT<J8UI,2,L00P)  •  TTR 
SORT (JSUB, 5,L00P)  ■  EHH  «  PKFH 
TTR8-0.0 
EHH 8-0.0 

NON  LRU  OATR  (FOR  THIS  8UB8Y8TEH) 

JLRU-KLRU( JSUB) 

NR-NUHL(JtUI) 

NTOT-O 

00  40  K»1,NR 
NT0T-NT0T+N8RU ( JLRU) 

TTRL-0.0 
EMHL-0.0 

INITIALIZE  NNH  ARRAY 

DO  22  J«l,30 
TRIXL(J)-0.0 

22  CONTINUE 

A00  UP  HTTR  ANO  HNH/KFH,  BUT  ONLY  FOR  N,  K,  N  TASKS. 

00  30  H*l,3 

X  •  TL8H0P(N, JLRU)  *  PLRR(H,JLRU)  •  HF 
IF  (H  .LE.  3)  TTRL  •  TTRL  ♦  X 
N-NLAF8C(H,JLRU) 

IF  (N  .EQ.  0)  SOTO  30 
IF  (H  .LE.  3)  EHHL-ENHL+X*N 

FOR  EACH  AF8C  REQUIRED  FOR  THE  TASK,  COLLECT  STATS  IN  ’FILE*. 

00  23  J-l.N 

CALL  FILE (L8AFSC< J f N, JLRU) , X/FH,2,L00P, JAF, #200) 

TRIXL ( JAF) -TRI XL ( JAF) +X/FH 

23  CONTINUE 
30  CONTINUE 

N«NLSE(4, JLRU) 

IF  (N  .EQ.  0)  SOTO  37 

Y-(PLRR(4,JLRU)*TL8H0P(4,JLRU)+PLRR<3, JLRU)*TLSH0P(3, JLRU) ) /FH 
FOR  EACH  SE  REQUIRED  FOR  THE  TA8K,  COLLECT  STATS  IN  FILE2. 

DO  33  J-l ,N 

CALL  F1LE2 (L3E ( J ,4, JLRU) , TTRL/FH , Y , LOOP, *200) 

33  CONTINUE 
C 

C  A8S18N  RAN  DATA. 


n  n  n  o  o  n  o  n  o  noon  non 


c 

37  UOAT  <  J LRU ,  1 T  LOOP  >  -  TTRL 
UDAT (JLRU, 2, LOOP)  ■  EHHL  •  PKFH 
UOAT (JLRU, 3, LOOP)  •  NEIBHT (JLRU) 

X  •  PLRR(1 i JLRU) 

Y  -  PLRR(3, JLRU) 

UOAT (JLRU|4|L00P)  ■  X 
UDAT(JLRU,3,LQOP)  -  Y 
UOAT (JLRU, A, LOOP)  ■  X  ♦  Y  ♦  PLRR(2,JLRU) 

UDAT(JLRU,7,L00P)  ■  NSRU(JLRU) 

TTR8  ■  TTR8  ♦  TTRL 
ERRS  •  ERRS  ♦  EHHL 

DUHP  HHH  HAXTRIX  TO  FILE  HHHIO 

DO  38  J-1,NAF 
X-TRIXL(J) 

IF  (X  . BT.  0.0)  HRITE(HHHIO)  -JLRU, J ( X 

38  CORTIRUE 
JLRU* JLRU* 1 

40  CONTINUE 

NON  STORE  8UB8YSTEH  SHOP  AND  TOTAL  (1  AND  3  FOR  HTTR,  4  AND  A  FOR  HHH) 
NTOT  IS  NURBER  OF  SRUS. 

SDAT ( JSUB, 1 ,LOOP)  -  TTRS 
SOAT ( JSUBV4,L00P)  *  ERRS  »  PKFH 
SDAT  <  JSUB , 3 1 LOOP )  ■  TTR  *  TTRS 
8DAT(J8UB,AIL00P)  •  ERR  *  ERRS 
SDAT (JSUB, 9, LOOP)  -  NTOT 

DUHP  HRH  HATRIX  TO  FILE  HHHIO 

DO  43  J*1 ,NAF 

X-TRIXS(J) 

IF  <X  .BT.  0.0)  NRITE (HHHIO)  JSUB , J , X 
43  CONTINUE 

FINALLY  AVAILABILITY 

SDAT < JSUB, 7, LOOP)  -  1.0  /  <1. O+TTR/FH) 

30  CONTINUE 

DO  93  J-l.NAF 

ADAT ( J ,3, LOOP)  *  ADAT < J , 1 , LOOP)  *  ADAT (J ,2, LOOP) 

93  CONTINUE 

STORE  PERTURBED  DATA  SIRILARLY,  IF  ANY. 

100  IF  (LOOP  .EO.  2  .OR.  102  .EQ.  0)  RETURN 
LOOP-2 
HHHIO-7 
RENIND  7 


116 


u  u  u 


DO  110  J»1,NAF 
DO  110  K-1,3 
ADAT (J ,K,2)»0.0 
110  CONTINUE 

DO  120  J-1,N8E 
DO  120  K-1,2 
EOAT (J ,K,2) >0.0 
120  CONTINUE 
GOTO  10 
200  NOTHER-O 
JABT-1 
RETURN 

998  NRITE(»f999) 

999  FORMAT {✓//,*  INTERNAL  FRQ8RAH  ERROR  -  RHODEL') 
STOP 

END 

SUBROUTINE  FILE(AF,X,K,LQOP,J,*) 


THIS  ROUTINE  ADDS  UP  HMH/KFH  FOR  EACH  AF8C. 

CHARACTER*?  AF 
C 

CHARACTER*?  AF1D,SEID 
CHARACTER*?  SEQID.LEQIO 

COMMON  / EQ I DS /  SEQIDUO)  ,LEQID(120>  ,AFID(SO>  ,SEID(30) 

C 

COMMON  /RAH/  8DAT<40,9,2) lUDAT(120,7l2) , ADAT (30,3,2) ,EDAT (30,2,2) 
C 

COMMON  /SIZES/  NSUB,NLRUfKLRU(40) ,NUHL(40) ,NAF,NSE,NDS,NAI 
C 

IF  (NAF  .EQ.  0)  SOTO  20 
IF  (NAF  .LE.  90)  SOTO  B 
WRITE (*,7) 

7  FORMAT (/, '  NUMBER  OF  AFSCs  EXCEEDS  SO.') 

NOTHER-O 
RETURN  1 

S  DO  10  J-l.NAF 

IF  (AF  .EQ.  AF1D(J) )  SOTO  30 
10  CONTINUE 
20  NAF-NAF+1 

ADAT (NAF , 1 , LOOP) "0. 0 
AD AT ( NAF  f  2 , LOOP ) -0 . 0 
AFIO (NAF) »AF 
J-NAF 

30  ADAT ( J,Kf LOOP)  -  ADAT (J ,Kf LOOP)  *  X 
RETURN 
ENO 

SUBROUTINE  FILE2(SE, X , V ,LOOP, #) 

C 

C  THIS  ROUTINE  ADDS  UP  MMH/FH  FOR  EACH  SE. 
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CHARACTER*?  3E 

c 

CHARACTER*?  AFID,SE!D 
CHARACTER*?  SEQID,LEQID 

COMMON  /EflIDS/  SEQID (40) , LEQID < 120) , AFID (30) , SEID (30) 

C 

COMMON  /RAN/  SDAT<40,9,2) ,UDAT(120t7,2) ,ADAT<50,3,2) ,EDAT<30,2, 2) 

COMMON  /SIZES/  NSUB.NLRU.KLRU (40) ,NUML(40) , NAF,N8E,NDS,NAI 

IF  (N8E  .EQ.  0)  SOTO  20 
IF  (NSE  -IE.  SO)  SOTO  8 
HRITE(*,7) 

7  FORMAT (/ , '  NUMBER  OF  SUPPORT  EQUIPMENT  EXCEEDS  SO.') 

NOTHER-O 
RETURN  1 

S  DO  10  J-1,NSE 

IF  (SE  .EQ.  SEID(J) )  SOTO  30 
10  CONTINUE 
20  N3E-NSE+1 

EDAT (NSE, 1 , LOOP) *0. 0 
EDAT (NSE, 2, LOOP) »0.0 
SEID(NSE)-8E 
J-N8E 

30  EDAT  < J , 1 .LOOP) -EDAT (J , 1 , LOOP) +X 
EDAT (J, 2, LOOP) -EDAT (J, 2, LOOP) +Y 
RETURN 
END 

SUBROUTINE  RNREADdO,*) 

THIS  ROUTINE  REAOS  IN  R+M  FILE  10. 


DESCRIPTION  OF  /SHARE/  COMMON  BLOCK 


FLI6HTLINE  TASKS  AND  DATAi 
T8FL  -  TASK  TIME 
PSH  -  TASK  PROBABILITY 

SFSE  -  SUPPORT  EQUIPMENT  REQUIRED  FOR  THIS  TASK 
SFAFSC  -  PERSONNEL  REQUIRED  FOR  THIS  TASK 
NAFSC  -  NUMBER  OF  SFAFSC 
NSFSE  -  NUMBER  OF  SFSE 

FHBNA  -  MEAN  FLI8HT  HOURS  BETWEEN  MAINTENANCE  ACTIONS 
HFAC  -  HFAC  -  H  FACTOR 

THE  SEVEN  TA8KS  AREi 

1  -  A8E 

2  -  TROUBLESHOOT  (TS) 

3  -  CANNOT  DUPLICATE  (CND) 
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4  *  REMOVE  AND  REPLACE  (R+R) 

5  -  MAINTAIN  ON  AIRCRAFT  (MAC) 

6  -  VERIFY  R+R  (VR+R) 

7  -  VERIFY  MAC  (VMAC) 


DESCRIPTION  OF  /TEMPRH/  COMMON  BLOCK 


F0LL0NIN8  IS  DATA  ASSOCIATED  NITH  LRU'S.  IN  A  MANNER  SIMILAR 

TO  THE  ABOVE  FOR  SUBSYSTEMS,  TO  ALLOH  FOR  MORE,  CHAN8E  FACH  120  TO  THE 

DESIRED  NUMBER.  TO  ALLOH  FOR  MORE  AFSC'S  PER  TASK,  CHANbE  EACH  3 

IN  THE  LEFTN08T  SUBSCRIPT  OF  L8AFSC  TO  THE  DESIRED  NUMBER.  TO  CHANSE 

MAX  NUMBER  OF  SUPPORT  EQUIPMENT  PER  TASK,  CHANSE  THE  1  IN  LSE 

TO  THE  DESIRED  NUMBER.  CHANSE  THE  120,  THE  1  AND 

THE  3  IN  THE  FIRST  CARO  F0LL0HIN6  AND  IN  THESE  COMMENTS. 


SHOP  TASKS  AND  DATAi 
TLSHOP  -  TASK  TINE 

PLRR  -  TASK  PROBABILITY 
LSAFSC  -  PERSONNEL  REQUIRED  FOR  THIS  TASK 

LSE  -  SUPPORT  EQUIPMENT  REQUIRED  FOR  THIS  TASK 
NLAF3C  -  NUMBER  OF  LSAFSC 
NLSE  -  NUMBER  OF  LSE 
MEI6HT  -  HEISHT 

N8RU  -  NUMBER  OF  SRUS 

THE  THREE  TASKS  AREt 

1  -  SHOP  REPAIR  (H) 

2  -  SHOP  CANNOT  DUPLICATE  (K) 

3  -  NRTS  (N) 


DESCRIPTION  OF  /SIZES/  COMMON  BLOCK 


N8UB  *  NUMBER  OF  SUBSYSTEMS 

NLRU  -  NUMBER  OF  LRUS 

KLRU  -  STARTINB  LRU  PER  SUBSYSTEM 
NUNL  -  NUMBER  OF  LRUS  PER  SUBSYSTEM 
NAF  -  NUMBER  OF  AFSC'S 

NSE  -  NUMBER  OF  SUPPORT  EQUIPMENT 

NDS  -  NUMBER  OF  DEPOT  SUPPORT  EQUIPMENT  (SEE  CREAD) 
NAI  -  NUMBER  OF  AIRCREW  (SEE  CREAD) 
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DESCRIPTION  OF  /EQIOS/  COMMON  BLOCK 


SEOID  -  SUBSYSTEM  NAMES 
LEQID  -  LRU  NAMES 
AFID  -  AFSC  NAMES 
SEID  -  SUPPORT  EQUIPMENT  NAMES 


CHARACTER*?  SFSE, SFAFSC 

COMMON  /SHAREX/  TSFL(7,40> ,PSM(7,40) , SFSE <2,7,40) ,SFAFSC(5,7,40> , 
«  NSAFSC (7,40) ,NSFSE(7,40) ,FHBMA(40) ,HFAC(40) 

C 

CHARACTER*?  LSAFSC.LSE 

COMMON  /TEHPRM/  TLSH0P<3, 120) ,PLRR<3, 120) ,LSAF3C(3,3, 120) , 

*  L8E(2,3,120) ,NLAFSC(5, 120) , NLSE ( S , 120) , 

•  HEIGHT (120) ,NSRU( 120) 

C 

COMMON  /SIZES/  NSUB,NLRU,KLRU(40) ,NUML(40> ,NAF,NSE,ND8,NAI 
C 

CHARACTER*?  AFID, SEID 

CHARACTER*?  SEOID  LEOID 

COMMON  /EQIDS/  SEQID<40) ,LEQID(120) v AFID (SO) ,SEID(50) 

C 

C 

REAL  TIMES (7) ,PEAS<7) 

CHARACTER*!  ITNANE (80) ,DA3H 
CHARACTERS  CR ,  SF ,  LF ,  LS ,  TS ,  TF ,  PF ,  PS ,  MF ,  SS 
CHARACTER*2  TYPE 
CHARACTER*?  BLANK, DATA(7) 

CHARACTER*?  EQ 
CHARACTER*^  ARRAY (B) 

C 

DATA  CR,SF ,LF,L3,TS , TF ,PF, PS , MF, S3 
Ii  / '  CR  ’ , '  SF ' , '  LF ' , '  LS ' , '  TS  ‘ '  TF  ‘ '  PF ' ,  ‘  PS ' , '  MF ' , '  38  *  / 

DATA  BLANK/'  '/ 

BATA  HAXLRU,NAXLA,HAXLE/ 120,5,2/ 

DATA  MAXSUB,MAXSA,MAXSE/40,3, 2/ 

C 

C  READ  TITLE  CARD 
REMIND  10 

READ (10,9000)  ITNAME 
HRITE (*,9010)  ITNAME 
9000  FORMAT (80A1) 

9010  FORMAT ( / , '  TITLE  CARD  READi  ' , / , 1 X , 80A 1 ) 

C 

C  READ  NUMBER  OF  SUBSYSTEMS.  HALT  IF  TOO  MANY. 

NLRU»0 


READ  < 1 0 T 10)  NSUB 
10  FORHAT (12) 

IF  (NSUB  .LE.  HAXSUB)  BOTO  30 
WRITE(#,20>  HAXSUB 

20  FORHAT(/// ,27H  CURRENT  HAX  SUBSY8TEH8  AT  ,13) 

RETURN  1 
C 

C  READ  EACH  SUBSYSTEH  IN  LOOP  100.  READ  AND  WRITE  THE  CR  CARD. 

30  DO  100  JSUB-l.NSUB 

33  READ (10,40)  TYPE, SEQID(JSUB) , DASH, JSEQ1 ,TEHP, NR 
40  FORHAT (A2, 1X,A7,A1 , II ,F6. 1 , SAX, 12) 

IF  (JSEQ1  .EQ.  2)  SOTO  35 
NUHL (JSUB) -NR 

IF ( JSEQ1  .EQ.  1  .AND.  TYPE  .EQ.  CR)  SOTO  £0 
BOTO  500 
C 

C  SET  POINTER  FOR  THIS  SUBSYSTEH  TO  FIRST  LRU  IN  LRU  TABLES. 

60  KLRU( JSUB) -NLRU+1 
C 

C  READ  CROSS  REFERENCE  CARDS  FOR  EACH  LRU  IN  THIS  SUBSYSTEH  (LOOP  90). 
DO  90  LDUHHY-l.NR 
IF  (NLRU  .LT.  HAXLRU)  SOTO  SO 
WRITE (*,70)  HAXLRU 

70  FORHAT (///,21H  CURRENT  HAX  LRUS  AT  ,13) 

RETURN  1 
80  NLRU-NLRU+1 

S3  READ < 10,40)  TYPE, LEQID(NLRU) ,DASH1,JSEQ1 ,WEI8HT(NRLU> , NESS 
IF (NESS  .EQ.  0)  NESS-1 
NSRU (NLRU) -NESS 
IF ( JSEQ1  .EQ.  2)  BOTO  85 

IF( J8EQ1  .EQ.  1  .AND.  TYPE  .EQ.  CR)  SOTO  90 
SOTO  300 
90  CONTINUE 
100  CONTINUE 
C 

C  READ  HANDATORY  SECOND  CR  CARD  FOR  LAST  LRU 
READ (10, 105)  ARRAY 
105  FORHAT (8A10) 

C 

C  READ  SF  CARDS.  THERE  HAY  BE  FROH  1  TO  HAXSE  CARDS  PER  SUBSYSTEH. 
JSUB-0 

DO  130  K-l , NSUB 

READ (10, 110)  TYPE, EQ, DASH, JSEQ, DATA, NUH 
110  FORHAT  <A2,1X,A7,A1,I1,7(1X,A3) ,13) 

IF  (TYPE  .NE.  SF)  SOTO  500 
IF  (JSEQ  .ST.  1)  SOTO  500 
IF  (NUH  .LE.  HAXSE)  BOTO  118 
WRITE(*, 1 17)  HAXSE 

117  FORHAT (/// ,24H  CURRENT  HAX  SE'S  SET  AT, 13) 

SOTO  500 
C 

C  IF  CARDS  ARE  NOT  IN  SEQUENCE,  WE  ADVANCE  JSUB  UP  TO  THE  CORRECT 
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C  SlIBSYTEN.  IF  NOT  FOUND  NE  ABORT. 

C 

118  JSUB-JSUB+l 
JFIR3T-JSUB 

120  IF(Efl  .E0.  SEOID(JSUB) )  SOTO  130 
JSUB-JSUB+l 

IF ( J8UB  . 8T.  NSUB)  JSUB-1 
IF  (JSUB  .NE.  JFIRST)  80T0  120 
80T0  300 

AS8I6N  TO  THE  PROPER  SUBSYSTEN.  FIRST  1  SE,  THEN  THE  2ND,  ETC. 

130  NSEQ-l 

DO  133  L«l,7 
NSF8E(L,JSUB)-0 
133  CONTINUE 

137  DO  140  L» 1,7 
IF  (DATA IL>  .ES.  BLANK)  60T0  140 
NP0S«NSFSE<L,JSUB>*1 
N8F8E(L, JSUB) ■NPOS 
SFSE(NP0S,L, JSUB) -DATA (L> 

140  CONTINUE 

IF  (N8E0  .BE.  NUN)  80T0  130 
READ  ADDITIONAL  SE'S.  THEN  STORE  ABOVE. 

NSEQ-NSEQ+1 

READ  <10,110)  T YPE , E9 , DASH , JSEQ , DATA 
IF (EQ  .NE.  SEOID(JSUB)  .OR. 

*  TYPE  .NE.  SF  .OR. 

t  JSEO  .NE.  NSEQ)  0OTO  300 
BOTO  137 
130  CONTINUE 

READ  LF  CARDS.  THERE  HAY  BE  FROH  ONE  TO  HAXSA  CARDS  FOR  EACH  SUBSYSTEN 
JSUB-0 

DO  200  K-1,NSUB 

READ (10, 110)  TYPE, EQ, DASH, JSEQ, DATA, NUN 
IF  (TYPE  .NE.  LF  .OR.  JSEQ  .ST.  1)  BOTO  500 
IF  (NUN  .LE.  HAXSA)  BOTO  158 
NR1TE(»,155)  HAXSA 
RETURN  1 

133  FQRHAT (/// , IX ,23HCURRENT  HAX  AFSC'S  SET  AT, 13) 

IF  CARDS  ARE  NOT  IN  SEQUENCE  BY  SUBSYSTEN,  NE  INCREHENT  JSUB  TO  IT. 

138  JSUB"JSUB+1 
JFIRST-JSUB 

160  IF  (EQ  .EQ.  SEQID (JSUB) )  SOTO  170 
JSUB-JSUB+1 

IF (JSUB  .ST.  NSUB)  JSUB>1 
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IP  ( J SUB  .NE.  JFIRST)  SOTO  160 
SOTO  900 


A8818N  TO  PROPER  SUBSYSTEM,  INITIALLY  THE  FIRST  AF3C,  THEN  SECOND,  ETC 

170  NSEfl-1 

DO  173  L-1,7 
NSAFSC (L, JSUB) -0 
173  CONTINUE 
175  DO  180  L>1,7 

IF  (DATA(L)  .Efi.  BLANK)  80T0  ISO 
NP0S-NSAF3C (L , JSUB) *1 
NSAFSC (L, JSUB) -NP08 
SFAFSCINPOS, L, JSUB) -DATA <L) 

180  CONTINUE 

IF  (NSEQ  . SE.  NUN)  SOTO  200 
READ  ADDITIONAL  AFSC'S,  THEN  STORE  SIMILARLY  ABOVE. 

NSEQ-NSEQ+1 

READ < 10, 110)  TYPE, EQ, DASH, JSEQ, DATA 
IF  (EO  .NE.  SEOID ( JSUB)  .OR. 

*  TYPE  .NE.  LF  .OR. 

*  JSEO  .NE.  NSEO)  SOTO  900 
SOTO  179 

200  CONTINUE 


READ  LS  CARDS.  THERE  MAY  BE  FROM  ONE  TO  MAXLA  CARDS  PER  LRU. 
JLRU-0 

DO  260  K-l.NLRU 

READ (10,210)  T YPE , EO , D ASH , J SEO , DATA , NUN 
210  FORMAT <A2, 1X,A7,A1,I1 ,6X,7(1X, AS ) , 1 3 ) 

IF  (TYPE  .NE.  LS  .OR.  JSEQ  .ST.  1)  SOTO  900 
IF  (NUN  .LE.  MAXLA)  SOTO  215 
WRITE (», 155)  MAXLA 
SOTO  900 
215  JLRU-JLRU+1 
JFIRST-JLRU 

220  IF  (EO  .EO.  LEQID(JLRU) )  SOTO  230 

IF  CARDS  ARE  NOT  IN  SEQUENCE  BY  LRU,  NE  INCREMENT  JLRU  UP  TO  IT. 
JLRU-JLRU+i 

IF  (JLRU  .ST.  NLRU)  JLRU- 1 
IF  (JLRU  .EO.  JFIRST)  SOTO  900 
SOTO  220 

ASSISN  TO  PROPER  LRU 
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DO  239  L"l,9 
NLAFSC ( L , JLRU) "0 

239  CONTINUE 

240  DO  290  L"1 ,9 
LX"L 

IF  (L  . BT.  3)  LX-L+2 

IF  (DATA(LX)  .ED.  BLANK)  60T0  290 

NP08"NLAFSC (L, JLRU) +1 

NLAFBC ( L , JLRU) *NP08 

L8AF8C (NP08 ,L , JLRU) "DATA (LX) 

290  CONTINUE 

IF  (N8EQ  .BE.  NUN)  60T0  240 
READ  ADDITIONAL  AFSC'3,  THEN  STORE  SIMILARLY  ABOVE. 

NSED-N8E0+1 

RE AD ( 1 0 , 21 0 )  T YPE , ED , 0A8H , J  SEO , DATA 
IF <E0  .NE.  LEBIO(JLRU)  .OR. 

*  TYPE  .NE.  LS  .OR. 

•  J8ED  .NE.  NSEO)  BOTO  900 
BOTO  240 

240  CONTINUE 

READ  T8  CARDS,  ONE  PER  LRU  IN  ANY  ORDER 
JLRU-0 

DO  300  K-l.NLRU 

READ (10,249)  TYPE , EB , DASH , J  BED , TINES 
249  FORMAT (A2, IX , A7, A1 , I 1 ,4X ,7( IX ,F9. 1 ) ) 

IF  (TYPE  .NE.  TS  .OR.  JSEQ  ,8T.  1)  BOTO  900 

IF  CARDS  ARE  NOT  IN  SEQUENCE  BY  LRU,  NE  INCREMENT  JLRU  UP  TO  IT. 

JLRU-JLRU+l 

JFIRST-JLRU 

270  IF  (ED  .ED.  LED I D ( JLRU) )  SOTO  280 
JLRU-JLRU+l 

IF  (JLRU  . 6T .  NLRU)JLRU>1 
IF  (JLRU  .NE.  JFIRST)  BOTO  270 
BOTO  900 

AS8I6N  TO  PROPER  LRU 

280  DO  290  Lai  ,3 

TLSHOP (L , JLRU) "TIMES (L) 

290  CONTINUE 

TLSHOP (4 , JLRU) "TIMES (4) 

TLSHOP <9, JLRU) "TIMES (7) 

300  CONTINUE 

READ  TF  CARDS,  ONE  PER  SUBSYSTEM 
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J8UB-0 

DO  340  K-1,NSUB 

READ (10,305)  TYPE, EQ, DASH, JSEQ, TINES 
303  FQRHAT(A2, 1X,A7,A1 , 1 1 ,7( IX ,F3. 1 ) ) 

IF  (TYPE  .NE.  TF  .OR.  JSEQ  .8T.  1)  80T0  300 

IF  CARDS  ARE  NOT  IN  SEQUENCE,  HE  1NCRENENT  J8UB  UP  TO  IT 

JSUB- JSUB* 1 
JFIRST-JSUB 

310  IF  (EQ  .EQ.  8EQID ( JSUB) )  SOTO  320 
J8UBaJSUB+l 

IF  (JSUB  .ST.  NSUB)  J8UB-1 
IF  (JSUB  .NE.  JFIRST)  SOTO  310 
SOTO  300 

ASSISN  TO  PROPER  SU8SYSTEN 

320  DO  330  L-1,7 

TSFLIL, JSUB) -TINES (L) 

330  CONTINUE 
340  CONTINUE 

READ  PF  CARDS,  ONE  PER  SUB8Y8TEH. 

JSUB-0 

DO  390  K-l , NSUB 

READ (10,330)  T YPE , EO , DASH , J SEQ , PEAS 
330  FORMAT (A2,1X,A7,A1,I1,7(F6.4)) 

IF  (TYPE  .NE.  PF  .OR.  JSEO  .ST.  1)  SOTO  300 

IF  CARDS  ARE  NOT  IN  SEQUENCE,  HE  INCREMENT  JSUB  UP  TO  IT 

J8UB-J8UB+1 

JFIRST-JSUB 

360  IF  (EQ  .EQ.  SEQID(JSUB))  SOTO  370 
JSUB-J8UB+1 

IF  (JSUB  .ST.  NSUB)  JSUB-1 
IF  (JSUB  .NE.  JFIRST)  SOTO  360 
SOTO  300 

ASSISN  TO  PROPER  SUBSYSTEM 

370  DO  3B0  L-1,7 

PSN(L, JSUB) -PEAS (L) 

380  CONTINUE 
390  CONTINUE 

READ  PS  CARDS,  ONE  PER  LRU  IN  ANY  ORDER 


JLRU-0 

DO  440  K-l , NLRU 
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READ (10,400)  TYPE , E0 , DASH , JSEO , PEAS 
400  FORMAT (A2,1X,A7,A1,I1,6X,7(F&.4)) 

IF  (TYPE  .NE.  PS  .OR.  JSEO  .ST.  1)  SOTO  300 

IF  CARDS  ARE  NOT  IN  SEOUENCE,  NE  INCREMENT  JLRU  TO  IT. 

JLRUaJLRU+l 

JFIRST-JLRU 

410  IF  (EO  .EO.  LEOID ( JLRU) )  SOTO  420 
JLRU-JLRUM 

IF  (JLRU  .ST.  NLRU)  JLRU-l 
IF  (JLRU  .NE.  JFIR3T)  SOTO  410 
80T0  300 

ASSI6N  TO  PROPER  LRU 

420  DO  430  L»1 ,3 

PLRR (L , JLRU) "PEAS (L) 

430  CONTINUE 

PLRR  <4 , JLRU) aPEA8 (A) 

PLRR (3, JLRU) -PEAS (7) 

440  CONTINUE 

READ  S8  CARDS,  ONE  PER  LRU.  AOOITIONAL  SE'S  ON  F0LL0NIN8  CARDS. 
JLRU-0 

DO  449  K-l.NLRU 

READ (10,441)  TYPE,ES,DASH, J8E8, (OATA(J) , Jal ,3) , DATA (4) , 
t>  DATA  <  3 )  ,NUM 

441  FORMAT  (A2,1X,A7,A1,I1,AX,3(1X,A5),12X,2(1X,A5),1X,I2) 

IF  (TYPE  .NE.  SS  .OR.  JSES  .ST.  1)  SOTO  300 

IF  (NUN  .LE.  HAXLE)  SOTO  4410 
WRITE (•, 1 17)  MAXLE 
RETURN  1 

4410  JLRU-JLRU+l 
JFIR8TaJLRU 

442  IF  (EQ  .EQ.  LEOID (JLRU) )  SOTO  443 

IF  CARDS  ARE  NOT  IN  SEQUENCE,  NE  INCREMENT  JLRU  UP  TO  IT. 
JLRUaJLRU+l 

IF  (JLRU  .ST  .NLRU)  JLRU-l 
IF  (JLRU  .EO.  JFIRST)  SOTO  300 
SOTO  442 

A8SI6N  TO  PROPER  LRU 

443  NSE0>1 

00  444  L>1,3 

NLSE (L , JLRU) a0 

444  CONTINUE 

443  DO  44A  L>1,3 
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IF  (DATA(L)  .EQ.  BLANK)  GOTO  446 
NPOS»NLSE (L, JLRU)  +1 
NLSE (L , JLRU) »NPQS 
LSE(NP08,L, JLRU) ■DATA(L) 

446  CONTINUE 

IF  (N8E0  .BE.  NUN)  BOTO  449 
C 

C  READ  ADDITIONAL  SE'S,  THEN  STORE  ABOVE. 

C 

NSEQ-NSEQM 

READ (10,441)  TYPE, EQ, DASH, JSEQ, (DATA(J) ,J«i,3) f DATA (4) ,DATA(3> 
IF (EQ  .NE.  LEQID ( JLRU)  .OR. 

»  TYPE  .NE.  88  .OR. 

»  J8EQ  .NE.  N8EQ)  BOTO  300 
BOTO  443 
449  CONTINUE 
C 

C  READ  NF  CARDS,  1  PER  SUB8YSTEH  IN  ANY  ORDER 
C 

JSUB-0 

DO  480  K«1,NBUB 

READ (10,430)  TYPE , EQ , 0A8H , J8EQ, VAL , H 
430  FORNAT (A2,1X,A7,A1,I1,1X,F6.1,1X,F6.4) 

IF  (TYPE  .NE.  NF  .OR.  JSEQ  .8T.  1)  BOTO  500 
C 

C  IF  CARDS  ARE  NOT  IN  SEQUENCE,  INCREHENT  JSUB  UP  TO  IT. 

C 

JSUB-JSUB+1 

JFIRST-JSUB 

460  IF  (EQ  .EQ.  SEQID(JSUB))  BOTO  470 
J8UB-JSUB+1 

IF  (JSUB  .BT.  NSUB)  JSUB-1 
IF  (JSUB  .NE.  JFIRST)  BOTO  460 
BOTO  300 
C 

C  ASSIBN  TO  PROPER  8UB8YSTEN 
C 

470  FHBHA(JSUB)«VAL 
HFAC ( JSUB) *H+i . 0 
480  CONTINUE 

NRITE(*,9020) 

9020  FORNATt/,'  FINISHED  READIN6  RtN  DATA.’) 

RETURN 

C 

C  PRINT  ERROR  NESSA6E  AND  ABNORNALLY  RETURN 
C 

300  WRITE (*,510) 

310  FORNAT (/// , '  R+N  INPUT  FILE  ERROR  —  USER  NEEDS  TO  FIX  IT’) 
HRITE (*,515)  TYPE, EQ, JSEQ 
315  FORNAT (/, IX ,A2, 1X,A7, I2> 

RETURN  1 
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SUBROUTINE  CHODEL 


THIS  IS  THE  DRIVER  FOR  THE  COST  CALCULATIONS. 
103  >  COST  INPUT  FILE 
JN  -  0  IF  NO  R+H  PERTURBED  DATA 
-  1  IF  THERE  IS  PERTURBED  DATA 
I03A  -  BASE  OUTPUT  FILE  (RETURNED) 

104A  -  PERTURBED  OUTPUT  FILE  (RETURNED) 

CALLED  BY  MAIN 

1 0 1 N  -  COST  DATA  FILE  UNIT  NUMBER 
I OUT  -  CURRENT  OUTPUT  FILE  UNIT  NUMBER 
NTH  -  1  FOR  BASE  R+M  DATA 

-  2  FOR  PERTURBED  R+H  DATA  FROM  /RAM/ 


COMMON  /OVER/  JABT, 102, I04A,JN,NHAX , LAST 
1NTE8ER  MASK, TITLE 

COMMON  /ALL/  NOTHER , KPR , KSO , KL I , NMA3K , NT  I TL , MASK ( 10) f  TITLE (10) 
COMMON  /COSTIO/  IOIN, IOUT,NTH 

SET  BASE  OUTPUT  FILE,  HR1TE  FIRST  LINE  AND  READ  COST  INPUTS. 

CALL  CHECK(t3,#l) 

SOTO  2 

1  WRITE!*, 6) 

6  FORMAT!///,  *  COST  FILE  IS  NOT  ATTACHED') 

SOTO  &0 

2  CALL  CHECK (-14, *4) 

CALL  CHECK (-3, *4) 

SOTO  7 

4  WRITE!*, 8) 

8  FORMAT (///,'  INTERNAL  ERROR  -  CHODEL  *  > 

STOP 

7  NTH-l 

I 0 IN* 1 3 
I OUT  * 1 4 

CALL  OUTFIL ( 1 ,«60> 

CALL  CREAD (*60) 

ALLOW  MODIFICATION  OF  COST  INPUTS.  THEN  CALCULATE  RESULTS  OF 
THE  MODEL  FOR  THE  BASE  CASE. 

3  IF  (NOTHER  .EQ.  0)  WRITE  (*,5) 

5  FORMAT!/ , '  DO  YOU  WANT  TO  CHANSE  INITIAL  COST  INPUTS?  ') 
CALL  I NP( 3, 0,0, 0,0, 240, IC,*60,*3) 

IF  (IC  . EQ.  1)  CALL  MODCST ( 103, 1 ) 

CALL  CALC08 


o  o  o  o  o  noo  nnnn  n  n  n  n 


C  ADD  HHH  FILE  TO  0UT3 
C 

CALL  HHHC0P(4,14) 

SET  NTH  TO  2  FOR  PERTURBED  R+H  DATA.  ALLOW  PERTURBATION  OF 
COST  DATA. 

I04A-0 
NTH-JN+1 
ICOP  -  4 

IF  (JN  .EQ  .1)  ICOP  >  7 
10  IF  (NOTHER  .EQ.  0)  WRITE*#, 20) 

20  FORMAT (/,*  DO  YOU  WANT  TO  PERTURB  COSTS?  ') 

CALL  INP(3, 0,0, 0,0,230,JC, *60, #10) 

IF  (JC  .EQ.  0)  IF  (JN)  38,38,35 
CALL  HOOCST( 103,2) 

IF  R+H  OR  COST  OR  BOTH  ARE  PERTURBED,  SET  OUTPUT  FILE,  WRITE 
THE  FIRST  LINE,  AND  RE-CALCULATE  COSTS. 

35  CALL  CHECK (-15, *4) 

CALL  CHECK (-6, *4) 

IOUT-15 
104A-15 

CALL  0UTFIL(2,#60) 

CALL  CALC08 

ADD  HNH  FILE  TO  I04A 

CALL  HHHCOP ( ICOP, 15) 

58  RETURN 
60  JABT-1 
RETURN 
END 

SUBROUTINE  HHHCOPdN,  10) 

REWIND  IN 

3  READ (IN, END-20)  I , J , X 
WRITE  < 10)  I,J,X 

WRITE ( 10-9,99)  I,J,X 
99  FORMAT (I10,2X,110,2X,E15.8) 

SOTO  3 

20  WRITE ( 10)  0,  0,  0.0 

HRITE(I0-9,99)  0,  0,  0.0 
RETURN 
END 

SUBROUTINE  CREAD ( • ) 

THIS  ROUTINE  READS  COST  INPUT  DATA  TO  /SHARE/. 


CALLED  BY  CHODEL 


i 
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CHARACTER#?  AFID.SEID 
CHARACTER*?  SEQIO.LEQID 

COHHON  /EQ X 08/  SEQID (40) ,LEQID(t20) f AFIO (SO) ,SEID(50) 

COMMON  /SIZES/  NSUB,NLRU,KLRU (40) ,NUML(40) ,NAF,NSE,ND8,NAI 
COHHON  /COSTIO/  ! Q ! H 1 1  OUT , NTH 

COHHON  /SHARE/  SIN (40,4)  ,RUIN<120, 13) , AFIN (50, 13) , SE IN (30,?) , 
#  OSE (SO | Z) ,AIDATA(30) ,C08TS<27> ,SCAL(78) 


COHHON  /ERR/  JERR,KOUNT 

CHARACTER*8  FIELDS 
COHHON  /EX/  FIELDS(B) 


CHARACTER# 1  BL , DA , DASH , BLANK , INT I TLE ( BO) 
CHARACTER#?  CT,ID(B) 

CHARACTER#?  NAHE 
INTE6ER  LVE1(4),  LVE2 (4) 

INTEBER  LV81 (10) ,LVS2(10) 

INTE8ER  LVNK2),  LVN2(2) 

INTEBER  LV11(2),  LVI2 (2) 

INTEBER  LVH1,  LHV2 
INTEBER  LVJK2),  LVJ2(2) 

INTEBER  LVD1,  LV02 
REAL  TDATA(IS) 

DIMENSION  X (3173) 

EQUIVALENCE  (X < 1 ) , SIN < 1 , 1 ) ) 

DATA  DASH, BLANK/ '  */ 

DATA  ID/  ’  VE ' , '  VS  ’ , '  VN ' , '  VI  ‘ ’  VH ' , '  VJ  ' , '  VP ' , '  VD '  / 

DATA  LVE1  /I ,9, 14,22/ 

DATA  LVE2  /B, 13, 21, 27/ 

DATA  LVS1  /l, 9, 17,23,33,41,49,37,65,73/ 

DATA  LVS2  /B, 16,24,32,40,48,36,64,72,78/ 

OATA  LVN1  /l, 9/ 

DATA  LVN2  /8, 13/ 

DATA  LVI1  / 1 ,9/ 

DATA  LVI2  /B, 13/ 

DATA  LVH1  / 1 / 

DATA  LVH2  /4/ 

OATA  LVJ1  / 1 ,9/ 

DATA  LVJ2  / B , 9 / 


DATA  LVD1  / 1 / 


non  or*  000000000000 


C 

C  THE  ABOVE  INDICES  DEFINE  THE  BTARTIN8  AND  ENDIN8  FIELD  NUMBER 
C  OF  EACH  CARD  OF  THAT  TYPE.  FOR  EXAMPLE,  LVE1 (1)  AND  LVE2U) 

C  ARE  1  AND  8.  THEREFORE,  THE  VE  CARD  NITH  SEQUENCE  NUMBER  ONE 
C  IS  USED  FOR  DATA  INTO  CQSTS(l)  THR0U8H  COSTS (B).  SEQUENCE 
C  NUMBER  2  FROM  9  TO  13,  ETC.  THERE  IS  ONLY  ONE  VH  CARD  CODE, 

C  AND  IT  STORES  DATA  IN  POSITIONS  1-4  OF  ARRAY  SIN. 


CARD 

CODE 

• 

CARDS 

ID 

ARRAY 

VE 

4 

COST  DATA 

C0ST8 

VS 

10 

SCALARS 

3CAL 

VN 

2 

AFSC'S 

AFIN 

VI 

2 

LRU'S 

RUIN 

VN 

1 

SUBSYSTEMS 

SIN 

VJ 

2 

SE'S 

8E1N 

VD 

1 

DSE'S 

D8E 

VP 

1 

A1RCREM 

AIDATA 

INITIALIZE  ALL  INPUTS  TO  BIS  NE8ATIVE  NUMBER  AS  FLA8  THAT  IT 
IS  NOT  INPUT.  X  IS  /SHARE/. 

DO  1  L-1,3173 

X (L) — 1.E30 
1  CONTINUE 
JERR-0 
KOUNT  -  0 
NAI-0 
NDS-0 


REMIND  1 0 1 N 

RE AD < 1 0 1 N , 9010)  INTITLE 
9010  FORMAT (80A1) 

NRITEf* ,9020)  INTITLE 

9020  FORMAT (/,'  DATA  TITLE  CARD  READl  '  ,/,lX,80Al) 

8QT0  10 

READ  NEXT  CARD,  CHECK, FORMAT,  FIND  TYPE  AND  BRANCH. 

10  READ(I0IN,20,END>890)  CT, BL, NAME, DA, JSEQ, FIELDS 
20  FORMAT (A2, A1 , A7, A1 , 1 1 ,4X ,8A8) 

IF  (BL  .NE.  BLANK  .OR.  DA  .NE.  DASH)  SOTO  30 
DO  30  L-1,8 

IF  (CT  .EQ.  ID (L) )  SOTO  (100,200,300,400,300,600,700,800) ,L 
30  CONTINUE 

CALL  ABORT (KOUNT , #90) 

NRITE(#,40) 

40  FORMAT (/, '  THE  F0LL0MIN6  CARD  HAS  AN  INVALID  CARD  CODE...') 
SOTO  70 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SO  CALL  ABORT (KOUNT, #90) 

WRITE  <»t60> 

60  FORMAT*/,'  CARD  FORMAT  ERROR  IN  THE  FOLLONINB  CARD...’) 
70  WRITE*#, 80)  CT ,BL, NAME, DA, J8E0, FIELDS 
80  FORMAT ( 1 X , A2 , A 1 , A7 , A1 , 1 1 , 3X , 8A8 ) 

90  JERR-JERRM 
NOTHER-O 
SOTO  10 

IN  THE  F0LL0NIN8  SE8NENT8,  L..1  ANO  L..2  FOR  THE  CARO  TYPE 
TELL  EXTRAK  WHERE  IN  THE  CALLIN8  ARRAY  TO  STORE  THE  DATA 
READ  FROM  THE  CARD.  ALL  CARDS  NITH  SEQUENCE  NUMBERS  OUT  OF 
RAN8E  ARE  REPORTED  AT  110.  ALL  CARDS  NITH  NAMES  NOT  FOUND 
IN  R#M  DATA  ARE  REPORTED  AT  322. 


VE 

100  IF  (JSEQ  .BE.  1  .AND.  JSEQ  .LE.  4)  SOTO  130 
110  CALL  ABORT (KOUNT, #90) 

MRITE (* v 120) 

120  FORMAT*/ , ‘  THE  FOLLOW INS  CARD  HAS  AN  INVALID  SEQUENCE  NUMBER...') 
SOTO  70 

130  CALL  EXTRAK(LVE1 (JSEQ) ,LVE2(JSEQ> , COSTS) 

SOTO  10 

VS 

200  IF  (JSEQ  .EQ.  0)  JSEQ-10 

CALL  EXTRAK (LV81 (JSEQ) ,LV82(J8EQ) ,SCAL) 

SOTO  10 

VN 

300  DO  320  N*1 ,NAF 

IF  (NAME  .EQ.  AFID(N) )  SOTO  330 
320  CONTINUE 

322  CALL  ABORT (KOUNT, #90) 

WRITE (#,323)  NAME 

323  FORMAT*/, IX, A7, '  NOT  IN  SYSTEM.') 

SOTO  90 


C 

C 


330  IF  (J8EQ  .LT.  1  .OR.  JSEQ  .ST.  2)  SOTO  110 
Ll-LVNl(JSEQ) 

L2aLVN2( JSEQ) 

CALL  EXTRAK (LI ,L2,TDATA) 

DO  340  L»L1,L2 

AFIN(N,L)  •  TDATA(L) 

340  CONTINUE 
SOTO  10 


%  *.  \ 
%’ 


noon  o  ooo  o  r*  r*  o 


400  DO  410  1*1 , NLRU 

IF  (NAHE  .EO.  LEQID(I) )  SOTO  420 
410  CONTINUE 
SOTO  322 

420  IF  (JSEfl.LT. 1.0R. JSE0.6T.2)  60T0  110 
L1*LV11 (JSEO) 

L2*LVI2 (JSEB) 

CALL  EXTRAK(L1 ,L2fTDATA) 

DO  430  L*L1,L2 

RUIN(I,L)*TDATA(L) 

430  CONTINUE 
SOTO  -10 


300  DO  S10  H*1 , N8UB 

IF  (NAHE  .EO.  SEQIO(H))  SOTO  320 
310  CONTINUE 
SOTO  322 

320  IF  (JSEO  .NE.  1)  SOTO  110 
CALL  EXTRAK (LVN1 , LVN2 , TDATA) 

DO  330  L-LVN1.LVN2 
SIN (N,L)  -  TDATA(L) 

330  CONTINUE 
SOTO  10 


600  DO  610  J-1,N8E 

IF  (NAHE  .EQ.  SEID(J))  80T0  620 
610  CONTINUE 
SOTO  322 

620  IF  (JSEO  .LT.  1  .OR.  JSEO  .ST.  2)  SOTO  110 
LI  *  LVJt (JSEO) 

L2  -  LVJ2 ( JSEO) 

CALL  EXTRAK (LI tL2f TDATA) 

DO  630  L*L1,L2 

SEIN  ( J ,L) *TDATA (L) 

630  CONTINUE 
SOTO  10 


THE  PRESENCE  OF  A  VP  CARD  INFERS  ONE  HORE  AIRCREW  TYPE. 


700  IF  (JSEO  .NE.  1)  SOTO  110 
NAI*NAI+1 

IF  (NAI  .ST.  30)  80T0  710 


ocjoooo  o  oooorj  n  o  oooo 


CALL  EXTRAK(1,1,AIDATA(NAI)) 

SOTO  10 

710  NRITE<»,711) 

711  FORMAT (/ , '  NUMBER  OF  AIRCREM  EXCEEDS  S0.‘) 
NOTHER-O 

SOTO  5 


VD 

THE  PRESENCE  OF  A  VD  CARD  INFERS  ONE  MORE  DEPOT  SUPPORT  CARD. 

S00  IF  (JSEfi  .NE.  1)  SOTO  110 
NDS  ■  NDS  ♦  1 
IF  (NDS  .8T .  SO)  SOTO  810 
CALL  EXTRAK  (LVD1 ,LVD2 , TDATA) 

DSE(NDS| 1 )  •  TDATA(l) 

DSE ( NDS , 2 )  >  TDATA (2) 

SOTO  10 

810  WRITE (*,81 1 ) 

811  FORMAT (/ , '  NUMBER  OF  DEPOT  SUPPORT  EOUIPMENT  EXCEEDS  SO.') 
NOTHER-O 

SOTO  S 

890  IF  (JERR  .EQ.  0)  SOTO  900 
NRITE(tf 895)  JERR 

89S  FORMAT (// , '  EXECUTION  HALTED. ‘ , 14, ’  ERRORS.') 

S  RETURN  1 

900  NRITE(#,9030) 

9030  FORMAT!/ , '  FINISHED  READIN8  COST  DATA.') 

RETURN 

END 

SUBROUTINE  EXTRAK (LI ,L2,T0ATA) 

THIS  ROUTINE  DECODES  VALUES  FROM  FIELDS  (IN  COMMON)  AND 
STORES  THEM  IN  ARRAY  TDATA  FROM  POSITION  LI  TO  L2.  NOTE 
THE  NUMBER  OF  DATA  ITEMS  DECODED  IS  1  ♦  L2  -  LI. 

REAL  TDATA (1) 

CHARACTERtlO  BLANKS 

CHARACTER*8  FIELDS, TEMP 
COMMON  /EX/  FIELDS (8) 

DATA  BLANKS/'  '/ 


KEEP  FLA8  OF  LAR8E  NEGATIVE  NUMBER  SET  IN  CASE  ONE  OF  THE  DATA 
ITEMS  IS  BLANK.  HENCE  BLANK  IS  NOT  ZERO. 


K-0 

DO  20  L-Ll , L2 
VAL  -  -1.E30 


nnooonnnonrjnnnnonoonnnonnnnnnn  oooo 


K-K+l 

TEHP-FIELDS(K) 

IF  (TEMP  .NE.  BLANKS)  READ(TEMP, 10)  VAL 
10  FORMAT (F8.0) 

TDATA(L)  ■  VAL 
20  CONTINUE 
RETURN 
END 

SUBROUTINE  ERROR (VAR) 

OUTPUTS  A  HE8SA8E  INDICATING  ABSENCE  OF  DATA  NECESSARY  FOR  A 
GIVEN  COST  RESULT  (VAR). 

CHARACTERS  VAR 
COMMON  /ERR/  JERR, MOUNT 
CALL  ABORT (K0UNT,*20) 

WRITE (*,10)  VAR 

10  FORMAT (/, '  INSUFFICIENT  DATA  TO  COMPUTE  *,A6) 

JERR-JERR+1 
20  RETURN 
END 

SUBROUTINE  CALCOS 

THIS  SUBROUTINE  INITIATES  CALCULATION  OF  MODEL  OUTPUTS.  THE 
INPUTS  ARE  COMMON  /RAM/  AND  COMMON  /SHARE/.  THE  OUTPUTS  ARE 
WRITTEN  ONTO  FILE  IOUT.  EACH  OUTPUT  HAS  A  PRINT  CODE  AS 
DESCRIBED  IN  'OUTPUT'.  EACH  IS  WRITTEN  BY  A  CALL  TO  RITE. 

IF  AN  OUTPUT  IS  AN  ARRAY  WHICH  VARIES  WITH  A  SUBSYSTEM,  AF8C, 
ETC.,  THERE  IS  1  LINE  PER  SUBSYSTEM,  AFSC,  ETC. 

SUBROUTINES  TO  COMPUTE  A  COST  (OR  ANY  OUTPUT)  ARE  NAMED  BY 
THE  LETTER  S  FOLLOWED  BY  THE  COST.  SCO  COMPUTES  CO. 

ALL  COSTS  ARE  COMPUTED  TO  THE  LOWEST  LEVEL,  WITH  THE  FOLLOWING 
EXCEPTIONS! 

1)  FOR  LRU'S,  UCSRU,  IC,  AND  CALI  ARE  USED  DIRECTLY  IF 
INPUT  INSTEAD  OF  CALCULATING  LOWER  LEVEL  EQUATIONS. 

IF  UNAVAILABLE  ON  INPUT,  THE  ATTEMPT  WILL  BE  MADE  TO 
CALCULATE  FROM  LOWER  LEVEL  DATA. 

2)  IF  ANY  OR  ALL  OF  THE  LONER  LEVEL  DATA  OF  A  COST  RESULT 
IS  NOT  AVAILABLE  ON  INPUT,  THAT  RESULT  WILL  BE  TAKEN 
DIRECTLY  FROM  THE  HIGH  LEVEL  INPUT  ITSELF  (IF  UNAVAILABLE 
ALSO,  AN  ERROR). 

THE  ABSENCE  OF  DATA  IS  SIGNIFIED  BY  -10**30  STORED  IN  THE 
VARIABLE.  IF  SO,  COSTS  FOR  WHICH  IT  IS  A  PART  MUST  BE  TAKEN 
FROM  HIGHER  LEVEL  DATA. 

ALL  VARIABLE  NAMES  SIMILAR  TO  THE  ALBEBRAIC  EQUATIONS  ARE 
LOCAL  WITH  THE  EXCEPTION  OF  /BASIC/.  ALL  NAMES  ARE  INVENTED 
SO  AS  TO  PHONETICALLY  SOUND  LIKE  THE  EQUATION  NAME  YET  STILL 
RETAIN  THE  REAL/INTEGER  FIRST  LETTER  CONVENTION.  (E.8.  ENRC 
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li 


FOR  NRC,  OR  EYEC  FOR  !C) 

CONDITIONAL  RETURNS  FROM  A  SUBROUTINE  INFER  THE  DATA  HAS  NOT 
AVAILABLE  FOR  CONFUTATION. 

CALLED  BY  CREAD 


THESE  ARE  VARIABLES  USED  FREQUENTLY  IN  THE  COST  EQUATIONSi 
VARIABLE  HNENONIC 


1 

-  ii 


ABFH 

NACB 

PBFH 

ENNII 


ABFH 

NACB 

PBFH 

NNII 


C 

C 

C 

C 

C 


COMMON  /SHARE/  SIN (40,4) ,RUIN (120, 13) , AFIN(30, 13) ,SEIN (50,9) , 
•  DSE (50,2) , A I  DAT  A  <  50 ) ,C0STS(27> ,SCAL(78) 

COMMON  /BASIC/  EM, ABFH, NACB, PBFH, ENNII 

COMMON  /SIZES/  NSUB, NLRU, KLRU<40) ,NUML(40) ,NAF,N8E,NDS,NAI 
COMMON  /COSTIO/  IOIN, IOUT ,NTH 


HR  I TE ( I  OUT )  NSUB , NLRU , NAF , NSE , NA I , ND8 

HR  I TE ( I OUT-9 , 999 )  NSUB , NLRU , NAF , NSE , NA I , NDS 
999  FORMAT (AIIO) 

ENNII  •  0.0 
DO  S  I«1  ,  NLRU 
PA  >  RUIN ( I ,9) 

IF  (PA  .LE.  -1.E30)  SOTO  7 
PP  ■  RU I N ( I , 10) 

IF  (PP  .LE.  -1.E30)  SOTO  7 
ENNII  •  ENNII  ♦  1.0  ♦  PA  ♦  PP 

3  CONTINUE 
SOTO  B 

7  ENNII  >  -1.E30 

8  EM  •  SCAL (47) 

ABFH  -  -1.E30 
PBFH  -  -1.E30 
NACB  •  SCAL (49) 

IF  (NACB  .LE.  -I.E30)  SOTO  20 
FHACM  -  SCAL (32) 

I>  (FHACM  .LE.  -1.E30)  SOTO  10 
PBFH  >  NACB  •  FHACM  t  12.0 
10  AFHACM  •  SCAL (31) 

IF  (AFHACM  .LE.  -1.E30)  SOTO  20 
ABFH  •  NACB  •  AFHACM  *12.0 


•  -  .  % 
j 


>V- , 
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THE  FQLL0NIN8  TWO  SUBROUTINES  STORE  THE  RESULTS  DIRECTLY  INTO 
THE  /SHARE/  ARRAYS. 

20  CALL  SCJ8I 
CALL  SCRUSE 

NQN-RECURRIN6  COSTS 

CRD  -  COSTS (14) 

IF  (CRD  .LE.  -1.E30)  CALL  ERROR (‘CRD  ‘> 

CALL  SCSI (CSI > 

CALL  SCO!  (COD 

ENRC  •  CRD  ♦  CSI  ♦  COI 

RECURRIN8  COSTS 

CALL  SCO (CO) 

CALL  SCS(CS) 

RCY  ■  CO  +  C8 


CDP  -  COSTS (27) 

IF  (CDP  .LE.  -1.E30)  CALL  ERROR! 'CDP  ') 

PIUP  >  SCAL (48) 

RC  ■  RCY  •  PIUP 
ELCC  >  ENRC  +  RC  ♦  CDP 
CALL  RITE(52,CRD) 

CALL  RITE(33,ENRC) 

CALL  RITE (34, RC) 

CALL  RITE(33,CDP) 

CALL  RITE(36,ELCC) 

CALL  R I TE  <  38 , RCY ) 

ADJUSTED  COSTS 

CALL  LCCAOJ (ENRC, CDP, RCY) 

CALL  EXAH 

RETURN 

ENO 

SUBROUTINE  LCCADJ (ENRC, CDP, RCY) 

THIS  ROUTINE  CALCULATES  LCC  ADJUSTED  FOR  CHANSE  IN  INFLATION 
RATE  AND  DISCOUNT  RATE. 

ENRC  -  NQN-RECURRIN8  COSTS 
CDP  -  DISPOSAL  COSTS 
RCY  -  ANNUAL  RECURRIN6  COSTS 

CALLED  BY  CALCOS 

COMMON  /SHARE/  SIN<40,4) ,RUIN( 120, 13) , AFIN(30, 15) ,SEIN (50,9)  , 


137 


•  D3E (30,2) « A I DATA  <  SO ) t  COSTS  <27) ,SCAL(78) 

C 

C 

C  CAN'T  DO  IT  WITHOUT  ALL  THE  INPUT. 

C 

IF  (SCAL (63)  .LE.  -1.E30)  RETURN 
EYERaSCAL (63) 

IF  (8CAL<72)  .LE.  -I.E30)  RETURN 
DR-SCAL<72) 

IF  (8CAL(71)  .LE.  -1.E30)  RETURN 
IDPTa8CAL(71) 

IF  (SCAL (70)  .LE.  -1.E30)  RETURN 
IP0T>8CAL(70) 

IF  (3CAL(48)  .LE.  -1.E30)  RETURN 
!PlUPa3CAL (48) 

TEHPa ( 1 . O+EYER) / ( 1 . O+DR) 

C 

C  BREAK  UP  NON-RECURRING  COSTS  OVER  THE  TIME  PERIOD  AND  MODIFY 
C  EACH  YEAR  BY  APPLICABLE  FACTOR. 

C 

HOLD-ENRC/IDPT 
ENRCT-0.0 
DO  20  Ial 1 1  DPT 
IT-I-l 

TENRCT-AAF (TEMP , IT) *HOLD 
CALL  RITE(80fTENRCT) 

ENRCT-ENRCT+TENRCT 
20  CONTINUE 
C 

C  SPREAD  ANNUAL  RECURRIN8  COSTS  OVER  THE  USA8E  PERIOD.  TINE 
C  PERIOD  BE6INS  AFTER  IDPT. 

C 

RCYT-O.O 

DO  30  Ial , IPIUP 

IT-IDPT+I-l 

TRCYT»AAF(TEMP, IT)»RCY 
CALL  RITE (81 ,TRCYT) 

RCYT-RCYT+TRCYT 
30  CONTINUE 
C 

C  BREAK  UP  DISPOSAL  COSTS  OVER  THE  TIME  PERIOD  AND  MODIFY  EACH 
C  YEAR  BY  APPLICABLE  FACTOR.  TIME  PERIOD  BEBINS  AFTER  IDPT  AND 
C  IPIUP. 

C 

IAFTER-IDPT+IPIUP 

CDPT-0.0 

IF  (IPOT  .LE.  0.0)  SOTO  43 

SENIaCDP/IPQT 

DO  40  I«1 , IPOT 

IT-IAFTER+I-l 

TCDPT-AAF (TEMP, IT) *SEHI 

CALL  RITE(82,TCDPT) 


oononnnon  nnononon 


CDPT-CDPT+TCDPT 
40  CONTINUE 
C 

43  ELCCAJ»ENRCT*RCYT*CDPT 
CALL  RITE(B3,ELCCAJ) 

RETURN 

END 

FUNCTION  AAF(TEMP,1T) 

C 

C  THIS  FUNCTION  CONVERTS  INFLATION  RATE  DIVIDED  BY  DISCOUNT 
C  RATE  (TEMP)  AND  NUMBER  OF  YEARS  HENCE  (IT)  TO  A  DOLLAR  FUD6E 
C  FACTOR. 

C 

C  CALLED  BY  LCCADJ 

IF  (IT  .EQ.  0)  SOTO  10 
AAF»(TEMP**(IT-t)+TEMP#*lT)/2.0 
RETURN 
10  AAF-1.0 
RETURN 
END 

SUBROUTINE  MODTYP <  OLD , VAL , KP , SNU > 

CALLED  BY  HODCST  TO  MODIFY  OLD,  BY  MEANS  OF  VAL,  USIN6  TYPE 
KP, AND  RETURNIN6  NEN. 

KP  ■  1  -  BIAS 

2  -  FACTOR 

3  -  REPLACE 

IF  ( KP— 2)  10,20,30 
10  6NU-0LD+VAL 
RETURN 

20  8NU»0LD#VAL 
RETURN 
30  SNU-VAL 
RETURN 
END 

SUBROUTINE  0UTFIL(JFLA8,«) 

THIS  ROUTINE  IS  CALLED  BY  CMODEL  TO  NRITE  THE  FIRST  RECORD 
OF  THE  OUTPUT  FILE,  NHICH  IS  SIMPLY  THE  FIRST  RECORD  OF 
THE  INPUT  FILE  PLUS  THE  MORD  'OUTPUT*  PLUS  (IF  A  PERTURBED 
OUTPUT)  AN  OPTIONAL  TITLE. 

JFLAS  •  1  -  RESULAR  OUTPUT  FILE 

2  -  PERTURBED  OUTPUT  FILE 

CHARACTER* 1  BL, BLANK (10) 

CHARACTERS  OUTS , HEAD (6) 

C 

COMMON/COST  10/ 1 01 N, I  OUT, NTH 


uuu  u  u  u  uuuuuuuuuuuu 


COMMON/ ALL /NQTHER , KPR , K50 , KL I , NMASK , NT  I TL , MASK (10), TITLE (10) 
C 

CHARACTERS  XMASK, XTITLE 
COMMON  / JJF/  XMA8K (10), XTITLE (10) 

C 

OATA  OUTS/'  OUTPUT  '/ 

DATA  BL/'  */ 

C 

00  S  N-1,10 
BLANK (N)  ■  BL 
S  CONTINUE 
C 

REMIND  10 I N 

READIIOIN, 10, END-30)  HEAD 
10  FORMAT (6A10) 

REMIND  I OUT 

IF  (JFLA6  .EQ.  1)  80T0  30 
SET  TITLE 

IF  (NTITL  .EQ.  -1)  60T0  20 
NT-NTITL 
SOTO  40 

20  IF  (NOTHER  .EQ.  0)  MRITE (*,21 ) 

21  FORMAT (/,'  PERTURBED  OUTPUT  FILE  TITLE?  ') 

CALL  INP(5,0,XTITLE,0,10,180,NT,#30,*20) 

SOTO  40 

30  MRITE(IOUT)  HEAD, OUTS, BLANK 

NRITEdOUT-9,99)  HEAD, OUTS, BLANK 
99  FORMAT (6A10,A10,10A1) 

RETURN 

40  MRITE ( IOUT)  HEAD, OUTS, XTITLE 

NRITEdOUT-9,99)  HEAD, OUTS, XTITLE 
RETURN 

30  RETURN  1 
END 

SUBROUTINE  MODCST ( 103, I J) 

M0DC8T  IS  CALLED  BY  CMODEL  TO  MODIFY  THE  COST  INPUT  IN  ARRAYS 
IN  /RAM/  AND  /SHARE/.  THE  VARIABLES  MHICH  CAN  BE  MODIFIED, 
AL0N6  MITH  THE  ARRAY  IN  MHICH  EACH  IS  FOUND,  AND  THE  POSITION 
MITHIN  THE  ARRAY  IS  SHOMN  BELOM.  ALSO  SHOMN  IS  THE  PRINT 
FORMAT  USED! 

MHICH  MHERE  IN  PRINT 

K  VARIABLE  ARRAY  ARRAY  FORMAT 


1  NB  11  SCAL  47  2 

2  MFHBMA  1  SDAT  8  2 

3  SNSRU  1  SDAT  9  1 


auuuouuuuuuuuuuouuuuuuuuuuuuuuuuuuuuuuuuuauuuuuuuuuu 


c 

108 

KSLPT 

11 

SCAL 

34 

3 

c 

109 

KPJ6 

11 

SCAL 

35 

2 

c 

no 

KCJ8 

11 

SCAL 

56 

2 

c 

111 

AAOH 

11 

SCAL 

37 

2 

c 

112 

BCA 

11 

SCAL 

38 

2 

c 

113 

BPA 

11 

SCAL 

39 

2 

c 

114 

FLA 

11 

SCAL 

60 

2 

c 

113 

0B8EC 

11 

SCAL 

61 

2 

c 

110 

CBTE 

11 

SCAL 

62 

2 

c 

117 

C6CM 

11 

SCAL 

63 

2 

c 

118 

CCIT 

11 

SCAL 

64 

2 

c 

119 

IR 

11 

SCAL 

63 

2 

c 

120 

KSED 

11 

SCAL 

66 

2 

c 

121 

NOSER 

9 

D8E 

1 

l 

c 

122 

COSE 

11 

SCAL 

68 

2 

c 

123 

CFB 

11 

SCAL 

69 

2 

c 

124 

POT 

11 

SCAL 

70 

1 

c 

123 

DPT 

11 

SCAL 

71 

1 

c 

126 

DRCT 

4 

RUIN 

6 

2 

c 

127 

CTFS 

11 

SCAL 

73 

2 

c 

128 

CNFS 

11 

SCAL 

74 

2 

c 

129 

CNFX 

11 

SCAL 

73 

2 

c 

130 

CTSX 

11 

SCAL 

76 

2 

c 

131 

CN8X 

11 

SCAL 

77 

2 

c 

132 

YEAR 

11 

SCAL 

78 

1 

c 

133 

COO 

12 

COSTS 

t 

2 

c 

134 

CACQ 

11 

SCAL 

43 

2 

c 

133 

COP 

12 

COSTS 

3 

2 

c 

136 

CFL 

12 

COSTS 

4 

2 

c 

137 

CON 

12 

COSTS 

3 

2 

c 

138 

CSN 

12 

COSTS 

6 

2 

c 

139 

CPT 

12 

COSTS 

7 

2 

c 

140 

CSP 

12 

COSTS 

8 

2 

c 

141 

COR 

12 

COSTS 

9 

2 

c 

142 

CSESN 

8 

SEIN 

3 

2 

c 

143 

CSN 

12 

C08TS 

11 

2 

c 

144 

CJB 

12 

COSTS 

12 

2 

c 

143 

CIN 

12 

COSTS 

13 

2 

c 

146 

CRD 

12 

COSTS 

14 

2 

c 

147 

CSI 

12 

COSTS 

13 

2 

c 

148 

COI 

12 

COSTS 

16 

2 

c 

149 

CPP 

12 

COSTS 

17 

2 

c 

130 

CPHH 

11 

SCAL 

23 

2 

c 

131 

CPTI 

12 

COSTS 

19 

2 

c 

132 

CSP1 

12 

COSTS 

20 

2 

c 

133 

C0R1 

12 

COSTS 

21 

2 

c 

134 

CSE1 

12 

COSTS 

22 

2 

c 

133 

CSN1 

12 

COSTS 

23 

2 

c 

136 

CJS1 

12 

COSTS 

24 

2 

c 

137 

CIHI 

12 

COSTS 

23 

2 

c 

138 

CFAI 

12 

COSTS 

26 

2 

c 

139 

COP 

12 

COSTS 

27 

2 
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c 

* 

c 

c 

SHARE 

1 

c 

c 

c 

AFIN (SO, 15) 

RUIN  < 120  y 13) 

SEIN (30,9) 

.  . 

c 

c 

1) 

VN-1  -  NMK 

VI-1  -  uc 

VJ-1 

-  UCSE 

c 

2) 

-  ACS 

-  UCSRU 

-  KIH 

I 

c 

3) 

-  CIC 

-  FCL 

-  K8E 

c 

4) 

-  COT 

-  FCS 

-  CPU8E 

c 

3) 

-  CTT8 

-  T 

-  CSESM 

c 

6) 

-  COJT 

-  DRCT 

-  IH 

c 

7) 

-  TC8 

-  DC 

-  CSU 

c 

8) 

-  TRS 

-  TC 

-  MSE 

—  J 

b 

c 

9) 

VN-2  -  CHP8 

VI-2  -  P8 

VJ-2 

-  KTR 

c 

10) 

-  OPF 

-  PP 

c 

11) 

-  KM 

-  SP 

c 

12) 

-  DLR 

-  IC 

c 

13) 

-  LLR 

-  CALI 

c 

14) 

-  BUR 

-  *4 

» 

c 

13) 

-  ILR 

c 

c 

SUBIN(40,4) 

D8E(30,2) 

AIDATA (SO) 

c 

c 

1) 

VN-1  -  CPINT 

VD-1  -  NDSER 

VP-1 

-  COA 

c 

2) 

-  CINST 

-  UCDSE 

: _ 

l 

c 

3) 

-  CFJ0 

_ _ 

c 

4) 

-  CSJ8 

c 

c 

COSTS (27) 

-  •  ■  •.* 

c 

»• 

c 

•  -  —  , 

i 

c 

VE-1 

- 

1)  COO 

VE-2  -  10)  CSE 

VE-3 

-  19) 

CPTI 

_ _ , 

c 

- 

2)  CAC 

-  11)  CSM 

-  20) 

CSPI 

.  .  * 

c 

- 

3)  COP 

-  12)  CJ8 

-  21) 

CDRI 

c 

- 

4)  CFL 

-  13)  C1M 

VE-4 

-  22) 

CSEI 

c 

- 

3)  COM 

VE-3  -  14)  CRD 

-  23) 

CSMI 

, 

c 

- 

6)  CSM 

-  13)  CSI 

-  24) 

CJ8I 

> 

c 

- 

7)  CPT 

-  16)  COI 

-  23) 

CINI 

-  •  i  - 

c 

- 

8)  CSP 

-  17)  CPP 

-  26) 

CFAI 

c 

VE-2 

- 

9)  CDR 

-  18)  CPM 

-  27) 

CDP 

•  ■  V 

c 

c 

SCAL (78) 

c 

» 

c 

c 

VS-1 

- 

1)  BRCT 

VS-4  -  27)  SCC 

VS-7 

-  33) 

FC 

;* 

c 

- 

2)  08TC 

-  28)  NSS 

-  34) 

KSLPT 

-  .  *  .*■' 

c 

- 

3)  08T0 

-  29)  SLR 

-  53) 

KPJ8 

c 

- 

4)  08 

-  30)  PC 

-  56) 

KCJS 

> 

c 

- 

3)  EBO 

-  31)  KTS 

VS-8 

-  57) 

AAOH 

c 

' 

6)  KPSR 

-  32)  KI 

*  58) 

BCA 

-  - 

N  , 

•  >k*  • 

;• 

144 

- 

*  •  \4 

• 

i/*  .%  J 

1  - 

.*•  .*•  'V*  4** 

‘ ^  0 

uuuuuuuuuuuuuuuuuuuuo 


- 

7) 

SPRTS 

VS-3 

- 

33) 

IMC 

- 

59) 

BPA 

- 

8) 

NRMC 

- 

34) 

RMC 

- 

40) 

FLA 

VS-2 

- 

9) 

CNFL 

- 

35) 

SA 

- 

41) 

OBSEC 

- 

10) 

CTFL 

- 

34) 

P8C 

- 

42) 

C6TE 

- 

11) 

CTFX 

- 

37) 

PSQ 

- 

43) 

cecH 

- 

12) 

CNSL 

- 

38) 

RPUM 

- 

44) 

CCIT 

- 

13) 

CNSS 

- 

39) 

OHI 

VS-9 

- 

45) 

IR 

- 

14) 

CTSL 

- 

40) 

COS 

- 

44) 

KSED 

- 

15) 

CTS8 

VS-4 

- 

41) 

NOT  USED 

- 

47) 

ND 

- 

14) 

FJB 

- 

42) 

PTT 

- 

48) 

CD3E 

VS-3 

- 

17) 

NN 

- 

43) 

caco 

- 

49) 

CFB 

- 

18) 

NMMKM 

- 

44) 

OSCY 

- 

70) 

POT 

- 

19) 

NMH 

- 

45) 

PMP 

- 

71) 

DPT 

- 

20) 

NCHMM 

- 

44) 

EFF 

- 

72) 

DR 

- 

21) 

CCPH 

- 

47) 

NB 

VS-0 

- 

73) 

CTFS 

- 

22) 

COC 

- 

48) 

PIUP 

- 

74) 

CNFS 

- 

23) 

CPMM 

V8-7 

- 

49) 

NACB 

- 

75) 

CNFX 

- 

24) 

SWPC 

- 

50) 

CPA 

- 

74) 

CTSX 

VS-4 

- 

25) 

CUR 

- 

51) 

FHACM 

- 

77) 

CNSX 

- 

24) 

CC 

- 

52) 

HFHACM 

- 

78) 

YEAR 

INTE8ER  J WHERE (159) ,  JUHICH(159) , JFORM (139) ,LENBTH(10) 

CHARACTERS  IDSUO) 

CHARACTERMO  PHEAO (2) , PERT <3) ,VARY(141 > .NAME, BLANK 

CHARACTERS?  FORM (4)  .FORMAT 
C 

COMMON  /ALL/  NOTHER.KPR.KSO.KLI .NMASK.NTITL .MASK ( 10) , TITLE! 10) 

C 

COMMON  /LINES/  HAXLIN 
C 

COMMON  /SIZES/  NSUB.NLRU.KLRU (40) ,NUHL(40) ,NAF,NSE,NDS,NAI 
C 

CHARACTER*?  AFID (50) ,SEID(50) 

CHARACTER*?  SEOIO (40) ,LEQID ( 120) 

COMMON  /EQIDS/  SEQID.LEQID, AFID.SEID 
C 

COMMON  /SHARE/  SIN(40f 4) , RUIN ( 120, 13) , AFIN (30 , 13) , SEIN (50,9) , 

«  DSE (50,2) , A I DAT  A ( SO  > ,C0STS(27) ,SCAL(78) 

C 

COMMON  /RAH/  SDAT(40,9,2) , UDAT <120,7,2) ,ADAT (50,3,2) ,EDAT(50,2,2) 
C 

COMMON  /COSTIO/  IOIN, IOUT.NTH 
C 

CHARACTER*!  XMASK.XTITLE 

COMMON  /JJF/  XMASK ( 10) , XTITLE (10) 

C 

DATA  JNHICH/1 1,1 ,1,4*2, 5*3, 4, 4, 11, 4, 4, 11, 7*4, 5, 5, 11, 13*6, 

1>  7, 7,8, 11,8,8, 12,4*8, 11, 9, 10, 16* 11,6,5* 11, 12,8*1 1,8, 

4  8*11,4,11,12,8*11,4,13*11,9,4*11,4,4*11,12,11,7*12,8,7*12, 

4  11,9*12/ 

C 

DATA  J WHERE/ 47 ,8,9,1,2,3,4,3,4,5,4,7,1,2,53,4,5,72,7,8,9,10, 
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DATA  LEN8TH/4#7,5#5,7/ 

DATA  BLANK/'  '/ 

DATA  FORK/ ’(1X,A7,1X,2F11.0) ‘ , 

*  '  (1X,A7,1X,2F11.2) ' , 

«  * ( IX , A7, IX ,2F1 1 . 5) * , 

«  '  (IX ,A7, IX ,2F1 1 .6) ' / 

DATA  PHEAD / ' CHAN6ES ' , ‘ PERTURBED ' / 
DATA  PERT/ 'BIAS',' FACTOR ' , ‘ REPLACE ' / 


'CTFL' 
'NHH ' , 
'CCPH ' 
'SA',' 
'OSCY ' 
'FCL ' , 
'OBSEC 
'CFB ' , 
'CN3X ' 


PP' , ' SP' ,  IC' , 'CALI ' ,  FRRH  ,  SRHH  ,  NN  ,  ACS  ,  CIC  , 
'CTTS' , ' COJT ' , 'TC8' , 'TR8' , 'CHPS' , 'OPF' , 'KR' , ' DLR ' , 

' BHR ' , ' T3DEH ' , ' TSDQT ' , ' UC8E ‘ , ‘ KI' , ' K8E ' , ' CPU8E ' , 

*  I H ' , ‘ CSU ' , ' R8E ' , ' KTR  * , ’ NO  * , * UCD8E ' , ' COA ' , '  BRCT ' , 
OSTO ' , ' OSTC ' , ' EBO ‘ , ' KP8R ' , ' SPRT8 ' , ' NRHC ' , ' CNFL ' , 

, ' CTFX ' , ' CN8L ' , ' CNSS ' , ' CT8L ' , ’ CT88 ' , ' F JB ’ , ' NNK ' , 

'  NHHKH ' , '  NCHNR  V  CC  V  COC  V  CPU  V  BNPC ' ,  '  CUR ' , 

•err*  'uea*  *ai  d-  *d  p>  '^tb'  'irfu*  •  imp  •  -bmp' 


'FCL' , 'KSLPT ' , 'KPJ8' , 'KCJB ' , ' AAOH ’ , 'BCA' , 'BPA' , 'FLA  ' , 

’ OBSEC ' , ' C8TE ' , ' C8CH ' , ' CCI T ' , ‘ IR ' , ’ KSED ' , ' ND8ER ’ , ’ CDSE ' , 
'CFB' , 'POT' , 'DPT' , 'DRCT' , 'CTFS' , 'CNFS ' , 'CNFX' , 'CTSX  * , 
'CN8X' , 'YEAR' , 'COO' , 'CACQ ' , ' COP ' , ' CFL ' , 'COR' , 'CSR' , 'CPT' , 
' C3P ' , ' CDR ' , ' CSESH ' , ' CSN ' , ' CJ8 ' , ' CIR ' , ’ CRD ' , ' CS1' , *  COT , 
'CPP' , 'CPMH' , 'CPTI ' , ' CSPI ' , 'CDR! ’ , 'CSEI ' , 'CSNI ' , 'CJBI ' , 
'CIHI ' , ' CFA1 ' , 'CDP  '  / 

(NOTHER  .EQ.  0)  WRITE  ( * ,  1 1 ) 


»  bint  ,  brnt  ,  uur  / 

10  IF  (NOTHER  .EQ.  0)  WRITE ( * , 1 1 ) 

11  FORRATt/,'  COST  VARIABLE?  ') 

CALL  INP(4, VARY, 0,0, 1&1,1 60, J,*10< 
IF  < J-2)  30,20,40 

20  CALL  DEFINE 
BOTO  10 
30  CALL  SET 
BOTO  10 

BET  PERTURBATION  TYPE  AND  AROUNT. 


*1000, #10) 


:  v-vvj 

•  I 

-•  .  .1 


n  n  n  o  o  o 


40  IF  (MOTHER  .EQ.  0)  WRITE ( • , 4 1 ) 

41  FORMAT </,'  TYPE?  ') 

CALL  INP (4, PERT, 0,0, 3, 100, KP, #10, *40) 

SO  IF  (NOTHER  .EQ.  0)  WRITE (*, SI )  PERT (KP) 
31  FORMAT (/ , IX ,A7 ,  ') 

CALL  IMP(2f0,0f0,0f 110,VAL,#10,#30) 

SET  POINTERS.  SET  MASK  AND  PRINT  OPTION. 


K-J-2 

JWK-JNHICH (K) 

L-JWHERE(K) 

FORMAT-FORM(JFORM(K) ) 

IF  (JNK  .BE.  9)  SOTO  AS 
IF  (NNASK  .EQ.  -1)  SOTO  AO 
HK-NHA8K 
BOTO  AS 

AO  IF  (NOTHER  .EQ.  0)  WRITE (• f A 1 ) 

A1  FORMAT (/,'  MASK-  ') 

CALL  INP(3,0,XMASK,0,LENBTH(JNK) , 120,MK,#10,*A0> 

AS  IF  (KLI  .EQ.  -1)  SOTO  70 
IL-KLI 
BOTO  72 

70  IF  (NOTHER  .EQ.  0)  WRITE (• T 71 ) 

71  FORMAT (/f '  DO  YOU  NANT  A  LISTINB  OF  THE  CHAN6ED  ITEMS? 

CALL  INP(3,0,0,0,0,2,1L,*10,*70) 

BRANCH  DEPEND I NB  ON  NHICH  ARRAY  OATA  IS  FOUND. 

72  KTOT-O 
NUMC-0 

BOTO  (100, 100, 200, 200, 300, 300, 400, 400, 500, AOO, 700, 710) ,JMK 
88  FORMAT ( 1AX , 'COST * ,4X,A10) 

C 

C 

C  IN  THE  NEXT  A  SECTIONS,  THE  CODE  IS  SIMILAR.  LABELS  100 
C  FOR  SUBSYSTEMS,  200  FOR  LRU'S,  300  FOR  AFSC'S,  400  FOR  SE'S, 

C  300  FOR  DSE'S,  AND  AOO  FOR  AIRCREW.  (THERE  IS  NO  MASK  FOR 

C  DSE  AND  AIRCREW  AS  THERE  IS  NO  NAME  FOR  EACH.) 

C 

C  FOR  EACH  TIME  THRQUBH  THE  LOOP,  CHECK  THE  MASK  (MK  >  0), 

C  EXTRACT  THE  DATA  PER  JNK,  CHECK  FOR  OTHER  THAN  REPLACE  OF 

C  NONEXISTENT  DATA,  MODIFY  WITH  A  CALL  TO  MODTYP,  PRINT  THE 
C  LINE,  AND  REPLACE  THE  NEW  VALUE. 

C 

100  DO  ISO  I-l ,NSUB 
NAME-SEQID(I) 

IF  (MK  .EQ.  0)  BOTO  120 
REAO(NAME, 110)  IDS 
110  FORMAT ( 10A1 ) 

CALL  HATCH(MK,XMASK,7, IDS, *150) 

120  IF  ( JWK  .EQ.  1)  BOTO  130 


OLD-SIN ( I , L ) 

SOTO  135 

OLD«SDAT(I ,L,NTH) 

IF  (OLD  .LE.  -1.E30  .AND.  KP  .NE.  3)  SOTO  800 
CALL  NODTYP ( OLD ( VAL , KP , SNU ) 

NUHC-NUHC+1 

IF  (IL  .Efi.  0)  SOTO  140 
CALL  ABORT (KTQT ,*140) 

IF  (KTOT  .ED.  1)  WRITE (* ,88)  PHEAD(IJ) 

WRITE <*, FORMAT)  NAME, OLD, SNU 
IF  (JNK  .EQ.  1)  SOTO  145 
SIN(1 ,L)"6NU 
SOTO  150 

SDAT<I,L,NTH)«8NU 

CONTINUE 

SOTO  900 

DO  250  I-l.NLRU 
NANE-LEQ I D ( I ) 

IF  <HK  .EQ.  0)  SOTO  220 

READ(NANE,110)  IDS 

CALL  NATCH (NK, XHA8K,7 , IDS , *250) 

IF  (JNK  .EQ.  3)  SOTO  230 
OLD-RUIN(I,L) 

SOTO  235 

OLD»UDAT(I,L,NTH> 

IF  (OLD  .LE.  -1.E30  .AND.  KP  .NE.  3)  SOTO  800 
CALL  NODTYPCQLD, VAL,KP,6NU) 

NUHCaNUNC+l 

IF  (IL  .EQ.  0)  SOTO  240 
CALL  ABORT (KTOT, #240) 

IF  (NUNC.EQ. 1 )  WRITE <• f 88)  PHEAD(IJ) 
NRITE(*,FORNAT)  NAME, OLD, SNU 
IF  (JNK  .EQ.  3)  SOTO  245 
RUIN ( I ,L) aSNU 
SOTO  250 

UDAT ( I  ,L,NTH) >6NU 

CONTINUE 

SOTO  900 

DO  350  I«1,NAF 
NAME- AF I D ( I ) 

IF  (NK  .EQ.  0)  SOTO  320 

READ(NANE.llO)  IDS 

CALL  NATCH (NK, XHASK ,5, IDS, #350) 

IF  (JNK  .EQ.  5)  SOTO  330 
OLD>AFIN(I,L) 

SOTO  335 

OLD-ADAT(I,L,NTH) 

IF  (OLD  .LE.  -1.E30  .AND.  KP  .NE.  3)  SOTO  800 
CALL  NODTYP ( OLD , VAL, KP, SNU) 

NUNC*NUNC+1 


KP  .NE.  3)  SOTO  800 
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IF  (IL.EQ.O)  GOTO  340 
CALL  ABORT (KTOT, *340) 

IF  (KTOT  .EQ.  1)  MRITE(*,88)  PHEAD(IJ) 

WRITE (*|FORHAT)  NAME, OLD, 8NU 
340  IF  (JNK  .EQ.  3)  SOTO  345 
AF1N ( I ,L) -6NU 
80T0  350 

343  ADAT(I,L,NTH)-6NU 
330  CONTINUE 
GOTO  900 

400  DO  450  I-1,NSE 
NAKE-SEID ( I ) 

IF  (HK  .EQ.  0)  GOTO  420 

READ(NAME, 110)  IDS 

CALL  NATCH(NK,XHASK,S, IDS, *450) 

420  IF  (JNK  .EQ.  7)  GOTO  430 
OLD-SEIN(I,L) 

GOTO  433 

430  QLD-EDAT(I,L,NTH) 

435  IF  (OLD  .LE.  -1.E30  .AND.  KP  .NE.  3)  GOTO  800 
CALL  NQDTYP (OLD, VAL,KP,6NU) 

NUMC-NUMC+1 

IF  (IL  .EQ.  0)  GOTO  440 
CALL  ABORT (KTOT, *440) 

IF  (KTOT  .EQ.  1)  WRITE (•  ,88)  PHEAD(IJ) 

NRITE(*, FORMAT)  NAME, OLD, GNU 
440  IF  (JNK  .EQ.  7)  GOTO  443 
3EIN(1,L)>6NU 
GOTO  450 

445  EDAT ( I ,L, NTH) "GNU 
430  CONTINUE 
GOTO  900 

300  IF  (NDS  .EQ.  0)  GOTO  800 
DO  350  1*1 , NDS 
NAME-BLANK 
OLD-DSE (I ,L) 

IF  (OLD  .LE.  -1.E30  .AND.  KP  .NE.  3)  SOTO  800 
CALL  MODTYP(QLD,VAL,KP ,8NU) 

NUMC-NUMC+1 

IF  (IL  .EQ.  0)  GOTO  540 
CALL  ABORT (KTOT, *540) 

IF  (KTOT.EQ. 1)  WRITE (*, 88)  PHEAD(IJ) 

WRITE(*, FORMAT)  NAME, OLD, 8NU 
340  D8E ( I ,L) -GNU 
330  CONTINUE 
GOTO  900 

600  IF  (NAI  .EQ.  0)  SOTO  800 
DO  630  1-1 , NAI 
NAME-BLANK 


oooo  n  ooo 


OLD-AIDATA(I) 

IF  (OLD  .LE.  -1.E30  .AND.  KP  .NE.  3)  SOTO  800 
CALL  NQDTYP ( OLD  ,  VAL , KP , 6NU) 

NUHC-NUHC+1 

IF  (IL  .EQ.  0)  SOTO  640 
CALL  ABORT (KT0T,§640) 

IF  (KTOT.EQ. 1)  WR I TE ( • , B8 )  PHEAD(IJ) 

HRITE(t, FORMAT)  NAME, OLD, 6NU 
640  AIDATA(I)>8NU 
630  CONTINUE 
SOTO  900 

SIMILARLY  FOR  SINGLE-VALUED  VARIABLES  FROM  COSTS  OR  SCAL. 

700  OLD*SCAL(L) 

SOTO  720 
710  OLO-COSTS(L) 

720  IF  (OLD  .LE.  -1.E30  .AND.  KP  .NE.  3)  SOTO  800 
CALL  MOOT YP ( OLD, VAL, KP,SNU) 

IF  ( JNK  .EQ.  12)  SOTO  730 

SCAL(L)-6NU 

SOTO  740 

730  C0STS(L)>6NU 
740  IF  (IL  .NE.  1)  SOTO  10 
MRITE (*,88)  PHEAD(IJ) 

WRITE (NAME, 743)  VARY ( J) 

743  F0RMAT(A7) 

HR I TE<#, FORMAT)  NAME, OLD, SNU 
SOTO  10 

800  HRITE(*,801) 

801  FORMAT!/,'  NO  DATA  TO  CHAN6E.') 

NOTHER-O 

SOTO  10 

IF  R+M  OUTPUT  HAS  CHAN6ED,  RESET  LAST  TO  FORCE  RECOMPUTATION 
IN  RNODEL  IF  THE  SAME  INPUT  FILE  IS  USED  AGAIN. 


900  HRITE(*,901)  NUMC 

901  FORMAT!//, IX, 14, '  CHANGES.’) 
IF  (NUMC  .EQ.  0)  SOTO  10 

IF  ( JUK  .EQ.  1  .OR.  JHK  .E 
*  JHK  .EQ.  3  .OR.  JHK  .E 
SOTO  10 
1000  RETURN 
END 

SUBROUTINE  SCSKCSI) 


JHK  .EQ.  3  .OR. 
JHK  .EQ.  7)  LAST-0 


COMMON  /SHARE/  SIN<40,4) ,RUIN(120, 13) ,AFIN(SO, 13) ,SEIN(30,9) 
•  DSE  <30 ,2) , AIDATA (50) , COSTS ( 27 ) , SCAL (78) 

CALL  SCPP(CPP,*100) 


V 


CPU  •  C0STSU8) 

IP  (CPU  .LE.  -1.E30)  60  TO  100 
C8I  ■  CPP  ♦  CPU 
CALL  RIT£(13fCSI) 

RETURN 

100  C8I  >  COSTS ( IS) 

IP  (C8I  .LE.  -1.E30)  CALL  ERRORCCSI  ') 

CALL  RITE ( 1 3 1 CSX ) 

RETURN 

END 

SUBROUTINE  SCOI(COI) 

COHNON  /SHARE/  SIN<40,4) ,RUIN<120, 13) ,AFIN<30, 13) ,SEIN<30,9) , 
•  DSE (30, 2) ,AIDATA<30> ,C08T8<27) ,8CAL(78) 

CJ6I  ■  COSTS (24) 

IP  (CJ6I  .LE.  -1.E30)  80  TO  100 
CALL  SCPTI(CPTI,«100) 

CALL  SCSPKCSPI.tlOO) 

CALL  SCDRI ( COR I f  # 1 00 ) 

CALL  SCSEI (CSEI ,*100) 

CALL  SCSNI (CSNI ,*100) 

CALL  SCIMI (CINI , *100) 

CALL  SCPAI(CPAI,«100) 

COI  «  CPTI  ♦  C8PI  ♦  CDRI  ♦  C8EI  ♦  CSNI  ♦  CJBI  ♦  CINI  ♦  CFAI 
CALL  RITE ( 12, COI ) 

RETURN 

100  COI  >  COSTS (16) 

IP  (COI  .LE.  -1.E30)  CALL  ERRQR('COI  ') 

CALL  RITE <12, COI ) 

RETURN 

END 

SUBROUTINE  SCO (CO) 

CALL  SC0P(C0P,#100) 

CALL  SCFL(CFL,*100) 

CO  «  COP  ♦  CFL 
CALL  RITE(11,C0) 

RETURN 

100  CALL  ERROR ('CO  ') 

RETURN 

END 

SUBROUTINE  SCS(CS) 

CALL  SCH8H(COMfC8H,#100) 

CALL  SCPT  <  CPT » *  1 00 ) 

CALL  SCSP(CSP,*100) 

CALL  SCDR(CDR,*100) 

CALL  SCSE(C9E,»100> 

CALL  SCSN(CSN,*100) 

CALL  SCJ6(CJ6,«100) 


call  sc i n (cm, *100) 

CS  -  COM  +  C8M  ♦  CPT  ♦  CSP  +  COR  +  CSE  +  CSM  ♦  CJ6  ♦  CIM 
CALL  RITE(10,CS) 

RETURN 

100  CALL  ERROR ( 'CS  ') 

RETURN 

END 

SUBROUTINE  SCPTI (CPTI ,#) 

COMMON  /SHARE/  SIN<40,4) ,RUIN<120, 13) ,AFIN<30, 15) ,SEIN<30,9) , 

*  DSE (SO ,2) , A I  DATA (50) ,C0STS(27) ,SCAL(78) 

CSTE  »  SCAL (62) 

IF  (CSTE  .LE.  -1.E30)  80  TO  10 
C8CM  ■  SCAL (63) 

IF  (C6CH  .LE.  -1.E30)  80  TO  10 
CCIT  ■  SCAL (64) 

IF  (CCIT  .LE.  -1.E30)  80  TO  10 
CPTI  «  CBTE  ♦  C8CM  ♦  CCIT 
CALL  RITE(24,CPTI) 

80  TO  20 

10  CPTI  «  COSTS (19) 

IF  (CPTI  .LE.  -1.E30)  RETURN  1 
CALL  RITE(24,CPTI) 

20  RETURN 
END 

SUBROUTINE  SCPP(CPP,*) 

COMMON  /SHARE/  SIN (40,4) ,RUIN ( 120, 13) , AFIN (SO, IS) ,SEIN (SO ,9) , 

*  DSE (SO ,2) , AIDATA(50) .COSTS (27) ,SCAL(7B) 

COMMON  /SIZES/  NSUB,NLRU,KLRU(40) ,NUML(40) ,NAF,NSE,NDS,NAI 

COMMON  /BASIC/  EM, ABFH,NACB,PBFH,ENNII 

CPP  ■  0.0 
DO  50  M-l.NSUB 

11  •  KLRU(M) 

12  >  II  t  NUML(M)  -  1 

CALL  SCPINT (CPINT, 1 1 , 12, *20) 

60  TO  30 

20  CPINT  >  SIN <M, 1 ) 

IF  (CPINT  .LE.  -1.E30)  RETURN  1 
CALL  RITE (36, CPINT) 

30  CALL  SC INST (CINST , 1 1 , 12 , *40) 

80  TO  43 

40  CINST  >  SIN (M,2) 

IF  (CINST  .LE.  -1.E30)  RETURN  1 
CALL  RITE <37, CINST) 

43  CPPS  «  EM  #  NACB  #  (CPINT  ♦  CINST) 
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CALL  RITE(63,CPPS) 

CPP  -  CPP  ♦  CPPS 
SO  CONTINUE 

CALL  RITE ( 1 S f CPP > 

RETURN 

END 

SUBROUTINE  SCSPI (CSPI ,*) 

COMMON  /SHARE/  SINC40 v4> ,RUIN< 120, 13) ,AFIN(S0,1S) ,8EIN<50,9) , 

*  D8E(50|2) , A I  DAT  A ( 50 ) f  COSTS (27) ,SCAL(78) 

COMMON  /BASIC/  EM,ABFH,NACB,PBFH,ENNII 

COMMON  /SIZES/  NSUB,NLRU,KLRU(40> ,NUML (40) ,NAFf NSE,NDStNAI 

COMMON  /RAM/  3DAT (40,9,2) f UDAT (120,7,2) ,ADAT (30,3,2) ,EDAT(30,2,2) 

COMMON  /C03TI0/  IOIN, IOUT,NTH 

IF  (EM  .LE.  -1.E30)  60  TO  40 

JLRU-l 

M*1 

CSPI  *0.0 
DO  10  1*1 , NLRU 

PS  *  UDAT ( I ,6, NTH) 

BRCT  *  SCAL(l) 

IF  (BRCT  .LE.  -1.E30)  60  TO  5 
PN  ■  UDAT ( I ,3, NTH) 

OSTC  •  SCAL (2) 

IF  (OSTC  .LE.  -1.E30)  SO  TO  3 
OS  -  SCAL (4) 

IF  (08  .LE.  -1.E30)  80  TO  3 
OSTO  *  SCAL (3) 

IF  (08T0  .LE.  -1.E30)  80  TO  3 
T  •  BRCT  ♦  PN/PS* (OSTC* ( 1 . O-QS)  ♦  OSTQtQS  -  BRCT) 

RUIN ( I ,3)  *  T 
60  TO  7 

ST*  RUIN ( 1,3) 

IF  (T  .LE.  -1.E30)  60  TO  40 

7  CALL  SLRUSS (ELRUSS, I ,H,T ,*40) 

CALL  SLRUDS(ELRUDS,I,H,*40) 

CALL  S8RU8S (SRUSS , I ,M, T ,*40) 

CALL  SSRUDS (SRUDS, I ,M, *40) 

JLRU*JLRU*1 

IF  (JLRU  .LE.  NUHL(H))  SO  TO  8 

JLRU*1 

M-M+l 

8  CSPIL  -  EM  *  (ELRUSS  *  ELRUDS  *  SRUSS  *  SRUDS) 

CALL  RITE (63 f CSPIL) 

CSPI  -  CSPI  +  CSPIL 
10  CONTINUE 


IF  <CSU  .LE.  -1.E30)  80  TO  100 
TEHP  «  TEMP  ♦  EH#(CPUBE+CSESH+EYEH)  ♦  CSU 
70  CONTINUE 

BCA  >  SC AL  <  58 ) 

IF  (BCA  .LE.  *1.E30)  80  TO  80 
BPA  -  8CAL (39) 

IF  (BPA  .LE.  -1.E30)  80  TO  80 
FLA  -  SCAL (60) 

IF  (FLA  .LE.  -I.E30)  80  TO  80 
OBSEC  -  BCA  +  BPA  +  FLA 
80  TO  90 

80  OBSEC  -  SCAL (61 ) 

90  IF  (OBSEC  .LE.  -1.E30)  80  TO  100 
CSEI  •  TEHP  ♦  EH  •  OBSEC 
CALL  RITE(30,CS£1) 

60  TO  110 
C 

100  CSEI  ■  COSTS (22) 

IF  (CSEI  .LE.  -1.E30)  RETURN  1 
CALL  RITE (30, CSEI) 

110  RETURN 
ENO 

SUBROUTINE  SCSNI  (CSV!,*) 

C 

COHHON  /SHARE/  SIN(40,4) ,RUIN ( 120, 13) , AFIN(50, 15) ,SEIN (30 ,9) , 
*  OSE (50,2) ,A1DATA(30) ,C08T8<27) ,SCAL (78) 

C 

ENN  «  SCAL (17) 

IF  (ENN  .LE.  -1.E30)  60  TO  10 
ENHHKH  >  SCAL (18) 

IF  (ENHHKN  .LE.  -1.E30)  60  TO  10 
ENHH  •  ENHHKH  #  ENH  *  .001 
60  TO  20 
C 

10  ENHH  ■  SCAL (19) 

IF  (ENHH  .LE.  -1.E30)  80  TO  30 
C 

20  ENCHHH  >  3CAL(20) 

IF  (ENCHHH  .LE.  -1.E30)  80  TO  30 
CCPH  -  SCAL (21) 

IF  (CCPH  .LE.  -1.E30)  80  TO  30 
CPHH  •  SCAL (23) 

IF  (CPHH  .LE.  -1.E30)  80  TO  30 
C 

COC  >  ENCHHH  »  CCPH  #  ENHH 
SHPC  >  ENHH  *  CPHH 
80  TO  40 
C 

30  SHPC  >  SCAL (24) 

IF  (SHPC  .LE.  -1.E30)  80  TO  30 
COC  •  SCAL (22) 

IF  (COC  .LE.  -1.E30)  80  TO  30 
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40  CSNI  -  SHPC  ♦  COC 
CALL  RITE (31 « C8WI > 

60  TO  60 

SO  CSMI  >  COSTS (23) 

IF  (CSMI  .LE.  -1.E30)  RETURN  1 
CALL  RITE(3I,CSMI) 

60  RETURN 
END 

SUBROUTINE  8CJ8I 

COMMON  /SHARE/  SIN (40,4) ,RUIN(I20, 13) t AFIN (SO, IS) ,SEIN(50,9) 

•  DSE (50,2) , A1DATA (50) .COSTS (27) ,SCAL(78> 

COMMON  /SIZES/  N8UB,NLRU,KLRU<40) ,NUML(<M ,NAF,NSE,NOS,NAI 

CJ6I  >  0.0 
00  40  H-l,NSUB 
FJ6  *  SCAL (16) 

IF  (FJ6.  LE.  -1.E30)  SO  TO  50 
CALL  SCFJ8(CFJ8,Hf *50) 

CALL  SCSJStCSJS.H.tSO) 

CJ6IS  ■  (l  ♦  FJS)  *  (CFJ8  *  CSJ8) 

CALL  RITE(62,CJ6IS) 

CJ6I  •  CJ61  ♦  CJ8IS 
40  CONTINUE 

COSTS (24)  -  CJSI 
CALL  RITE (26,CJ8I ) 

RETURN 

50  CALL  RITE (26 ,C08TS (24) ) 

RETURN 

END 

SUBROUTINE  SCIMI (CIMI ,«) 

COMMON  /SHARE/  SIN(40,4) ,RUIN(I20, 13) ,AFIN(50, 15) ,SEIN(50,9) 

*  DSE (SO ,2) , AIOATA (50) ,COSTS (27) , SCAL (78) 

COMMON  /BASIC/  EM, ABFH,NACB,PBFHf ENNI I 

COMMON  /SIZES/  NSUB,NLRU, KLRU(40) ,NUML(40) ,NAF,NSEf NDS,NAI 

EYEHC  •  SCAL (33) 

IF  (EYEHC  .LE.  -1.E30)  SO  TO  20 

CIMI  >  0.0 
DO  10  I>1,NLRU 
PA  >  RUIN ( I , 9) 

PP  -  RUIN ( I , 10) 

IF  (PA  .LE.  -1.E30  .OR.  PP  .LE.  -1.E30)  SO  TO  20 
CIMIL  «  EYEHC  *  (1  ♦  PA  +  PP) 

CALL  RITE (68, CIMIL) 

CIMI  >  CIMI  *  CIMIL 
10  CONTINUE 

CALL  RITE (34,CIMI) 
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RETURN 

20  CIH1  ■  COSTS  < 25 ) 

IP  (C1HI  .LE.  -1.E30)  RETURN  1 
CALL  RITE(34,CIHI) 

RETURN 

END 

SUBROUTINE  SCOP (COP,*) 

CONNON  /SHARE/  BIN(40,4) ,RUIN<120,13) ,AFIN(30,15) ,SEIN<50,9) 

•  D8E (30,2) , A I DAT  A ( 50 ) ,C0ST8(27) ,SCAL (78) 

CONNON  /BASIC/  EH,ABFH,NACB,PBFH,ENNII 

CONNON  /SIZES/  N8UB,NLRU,KLRU(40) ,NUHL(40) ,NAF,NSE,NDS,NAI 
DATA  X/-1.E30/ 

COO  •  COSTS (1) 

IF  (COO  .LE.  -1.E30)  60  TO  10 
OSCY  >  SCAL (44) 

CPA  •  SCAL (SO) 

IF  (CPA  .LE.  X  .OR.  EH  .LE.  X  .OR. 

•  COO  .LE.  X  .OR.  OSCY  .LE.  X)  SOTO  10 
TEHP  -  0.0 

DO  3  IP  ■  1 , N A I 
COA  •  AIDATA(IP) 

IF  (COA  .LE.  X)  60  TO  10 
TEHP  -  TEHP  ♦  COA 
3  CONTINUE 

CAC  -  EH  •  NACB  *  CPA  »  (TEHP  *  QSCY*NAI) 

COP  •  CAC  *  COO 
CALL  RITE (39, CAC) 

CALL  RITE (22, COP) 

60  TO  20 

10  COP  -  COSTS (3) 

IF  (COP  .LE.  -1.E30)  RETURN  1 
CALL  R1TE(22,CQP) 

20  RETURN 
END 

SUBROUTINE  8CFL(CFL,«) 

CONNON  /SHARE/  SIN<40,4) ,RUIN<120, 13) ,AFIN(50, 13) ,8EIN(50,9> 

•  DSE (30,2) , AIDATA (SO) ,C0ST8(27) , SCAL (78) 

CONNON  /BASIC/  EN,ABFH,NACB,PBFH,ENN!I 
FC  •  SCAL (33) 

IF  (FC  .LE.  -1.E30)  80  TO  10 
CFL  >  EM*ABFH*FC 
CALL  RITE(23,CFL) 

80  TO  20 

10  CFL  >  COSTS (4) 

IF  (CFL  .LE.  -1.E30)  RETURN  1 


CALL  RITE(23,CFL> 

20  RETURN 
END 

SUBROUTINE  SCPT(CPT,t) 

CONNON  /SHARE/  SIN<40,4) , RUIN ( 120, 13) ,AFIN(30,15> ,SEIN<30,9) , 

#  DSE(50,2) , AIDATA (50) ,C0STS(27) ,SCAL(7B) 

CONNON  /RAN/  SDAT<40,9,2) ,UDAT<120,7,2> ,ADAT<50,3,2) ,EDAT (30,2,2) 

CONNON  /COSTIO/  IOIN, IOUT,NTH 

CONNON  /BASIC/  EN , ABFH , NACB , PBFH , ENN I I 

CONNON  /SIZES/  NSU8,NLRU,KLRU(40) ,NUHL<40) ,NAF,NSE,ND8,NAI 

EFF  -  SCAL (46) 

PNB  •  SCAL (43) 

PIUP  -  SCAL (48) 

IF  (EFF  .LE.  -1.E30  .OR.  PNB  .L£.  -1.E30  .OR. 

#  PIUP  .LE.  -1.E30)  80  TO  40 
CPT  ■  0.0 

DO  30  N«1,NAF 
CALL  STCS(TC8,N,#40) 

ENURF  -  ADAT (N, 1 ,NTH) 

EHURS  -  ADAT (N,2,NTH) 

IF  (ENURF  .LE.  -1.E30  .OR.  EHURS  .LE.  -1.E30)  80  TO  40 
ENU  •  (EHURF+EHURS)  *  ABFH/ (EFF»PHB) 

TRS  •  AFIN (N, 8) 

IF  (TRS  .LE.  -I.E30)  60  TO  40 
CPT  ■  CPT  ♦  ( I . O/PIUP+TRS)  #  ENU  •  TC8 
30  CONTINUE 

CPT  ■  CPT  *  EH 
CALL  RITE(14,CPT) 

60  TO  30 

40  CPT  «  COSTS (7) 

IF  (CPT  .LE.  -1.E30)  RETURN  1 
CALL  RITE ( 1 4 f CPT ) 

30  RETURN 
END 

SUBROUTINE  SCDR(CDR,*> 

CONNON  /SHARE/  SIN (40,4) , RUIN ( 120 , 13) , AFIN (50, 13) , SEIN (50,9) , 

#  OSE (30,2) , AIDATA (SO) lC03TS(27> ,SCAL(7S) 

CONNON  /BASIC/  EH, ABFH, NACB, PBFH, ENN 1 1 

CONNON  /SIZES/  NSUB, NLRU,KLRU (40) ,NUHL (40) ,NAF,NSE ,NDS,NAI 
CONNON  /RAN/  S0AT(40,9,2) , UDAT (120,7,2) , ADAT (30,3,2) ,EDAT (50,2,2) 
CONNON  /COSTIO/  IOIN, IOUT.NTH 


JLRU-1 
CDR  >0.0 
00  20  I>lfNLRU 
FHBHA  >  SDAT (h, 8, NTH) 

JLRU  •  JLRU  ♦  1 

IF  (JLRU  .LE.  NUHL(H))  60  TO  S 

JLRU-1 

H«H*1 

5  PM  ■  UOAT <1 ,3, NTH) 

DC  >  RUIN ( I « 7) 

IF  (DC  .LE.  -1.E30)  60  TO  30 
CALL  8TC(TC,I,*10) 

60  TO  IS 

10  TC  >  RUIN(I ,8) 

IF  (TC  .LE.  -I.E30)  80  TO  30 
IS  CDRL  -  EH  t  ABFH  »PN  *  (DC+TC) /FHBHA 
CALL  RITE(60,CDRL) 

CDR  >  CDR  ♦  CDRL 
20  CONTINUE 

COS  -  SCAL (40) 

IF  (COS  .LE.  -1.E30)  80  TO  30 
OHI  -  SCAL (39) 

IF  (OHI  .LE.  -1.E30)  60  TO  30 
COR  -  COR  +  EM  •  NACB  «  COS  «  OHI 
CALL  RITE ( 17 ,CDR) 

80  TO  40 

30  CDR  -  COSTS (9) 

IF  (CDR  .LE.  -1.E30)  RETURN  1 
CALL  RITE ( 17'CDR) 

40  RETURN 
END 

SUBROUTINE  SCJ8(CJ6,») 

COHHON  /SHARE/  SIN<40,4) ,RUIN< 120, 13) ,AFIN(30,15> ,SEIN(30,9) 
•  D8E(S0,2> ( A I  DATA ( SO  > ,C0STS(27) ,SCAL(78) 


EKPJ6  >  SCAL (SS) 

IF  (EKPJ6  .LE.  -I.E30)  80  TO  10 
EKCJ8  >  SCAL (36) 

IF  (EKCJ6  .LE.  -1.E30)  30  TO  10 
CJB1  -  COSTS (24) 

IF  (CJ6I  .LE.  -i.E-30)  80  TO  10 
CJB  >  EXPJ8  *  EKCJ8  *  CJBI 
CALL  RITE (20tCJB) 

60  TO  20 

10  CJ8  >  C08TS ( 12) 

IF  (CJ8  .LE.  -1.E30)  RETURN  1 
CALL  RITE <20, CJ8) 

20  RETURN 


SUBROUTINE  SCHSH  (CON, CSN,*) 

CONNON  /SHARE/  SIN (40,4) , RUIN ( 120 , 13) ,AFIN(50 , 13) ,3EIN (30,9) , 

*  DSE(30,2) , AIDATA (30) ,C0STS(27) ,SCAL(78) 

CONNON  /RAH/  SDAT(40,9,2) ,UDAT (120,7,2) ,ADAT(30,3,2) , EDAT (50, 2 , 2) 
CONNON  /BASIC/  EH, ABFH,NACB,PBFH,ENNII 
CONNON  /COSTIO/  IOIN, IOUT,NTH 

CONNON  /SIZES/  NSUB,NLRU,KLRU<40) ,NUHL(40) ,NAF,NSE,NDS,NAI 
DATA  X/-1.E30/ 

EFF  «  SCAL (44) 

IF  (ABFH  .LE.  X  .OR.  EFF  .LE.  X  .OR.  EFF  .EQ.  0.0)  60  TO  43 
CSN  -  0.0 
CON  -  0.0 

DO  40  N-1,NAF 
CALL  SLLR(ELLR,N,*43) 

BNR  ■  AFIN (N, 14) 

IF  (BNR  .LE.  X)  80  TO  43 
PROD  >  ELLR+BNR 
ENURF  >  ADAT (N, 1 , NT H ) 

CON  •  CON  ♦  EHURF*PROD 
EHURS  -  ADAT (N, 2, NTH) 

CSN  >  CSN  ♦  EHURStPRQD 
40  CONTINUE 

CON  >  EN  *  CON  •  ABFH/EFF 
CSN  •  EH  #  CSN  *  ABFH/EFF 
CALL  RITE (27 , CON) 

CALL  RITE (28, CSN) 

RETURN 

43  CON  >  COSTS (3) 

IF  (CON  .LE.  -1.E30)  RETURN  1 
CSN  ■  COSTS (A) 

IF  (CSN  .LE.  -1.E30)  RETURN  1 
CALL  RITE(27,C0H) 

CALL  RITE (28, CSN) 

RETURN 

END 

SUBROUTINE  SCSP  <CSP,t) 

CONNON  /SHARE/  SIN (40,4) , RUIN ( 120, 13) f AFIN (30 1 15) ,SEIN(50,9) , 

•  DSE (30,2) , AIDATA (50) ,C0STS<27) , SCAL (78) 

CONNON  /COSTIO/  IOIN, IOUT, NTH 
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COMMON  /RAN/  SDAT(40t9f2) f UDAT (120,7,2) , ADAT (30 , 3 , 2) ,EDAT (30,2,2) 
COMMON  /SIZES/  NSUB,NLRU,KLRU<40) ,NUHL<40> ,NAF,NSE,ND8,NAI 
COMMON  /BASIC/  EM , ABFH , NACB , PBFH , ENN I I 


CSP  •  0.0 

JLRU-1 

N-l 

IF  (ABFH  .LE.  -1.E30)  SO  TO  20 
DO  10  I-l.NLRU 
FHBMA  -  SCAT (M,8,NTH) 

PN  »  UDAT (I ,5, NTH) 

PN  -  UDAT (I ,4, NTH) 

UC  -  RUIN ( I t 1 > 

IF  (UC  .LE.  -1.E30)  60  TO  20 
FCL  ■  RUIN ( I ,3) 

IF  (FCL  .LE.  -1.E30)  60  TO  20 
UC8RU  -  RUIN( I ,2) 

IF  (UCSRU  .LE.  -1.E30)  CALL  8UCBRU(UCSRU,I,*20> 

FCS  -  RUIN ( I ,4) 

IF  (FCS  .LE.  -1.E30)  60  TO  20 
JLRU-JLRU+1 

IF  (JLRU.LE.NUML(M) )  60  TO  3 

JLRU-1 

H-M+l 

3  ELRURS  -  EM  •  ABFH  «  UC  *  FCL  •  PN  /  FHBMA 
SRURS  -  EH  t  ABFH  •  UCSRU  •  FCS  *  PH  /  FHBMA 
C8PL  -  ELRURS  ♦  SRURS 
CALL  RITE(70, ELRURS) 

CALL  RITE(71, SRURS) 

CALL  RITE (61 ,CSPL) 

CSP  •  CSP  ♦  CSPL 
10  CONTINUE 

CALL  RITE(16,CSP) 

60  TO  30 

20  CSP  •  COSTS (8) 

IF  (CSP  .LE.  -1.E30)  RETURN  1 
CALL  RITE ( 16, CSP) 

30  RETURN 
END 

SUBROUTINE  SCSE(CSE,f) 

COMMON  /SHARE/  SIN (40 ,4) ,RUIN ( 120, 13) , AFIN (30, 15) tSEIN <30 ,9) , 
«  OSE  <30 ,2) , AIDATA (50) .COSTS (27) , SCAL (79) 

COMMON  /BASIC/  EM, ABFH, NACB, PBFH, ENN I I 

COMMON  /SIZES/  NSUB,NLRU,KLRU<40) ,NUML(40) ,NAF,NSE,NDS,NAI 

CSE  >0.0 
DO  20  J-l ,NSE 


EHSE  -  SEIN ( J ,8) 

IF  (EHSE  .LE.  -1.E30)  80  TO  30 
CPU8E  >  SE1N ( J , 4) 

IF  (CPU8E  .LE.  -1.E30)  80  TO  30 
CSE  -  CSE  ♦  EHSE*CPUSE 
20  CONTINUE 

CSE  •  EH  *  CSE 
CALL  RITE(18,CSE) 

80  TO  40 

30  CSE  »  COSTS (10) 

IF  (CSE  .LE.  -I.E30)  RETURN  1 
CALL  RIT£(18fCSE) 

40  RETURN 
END 

SUBROUTINE  SCSN  (CSN,*> 

CONNON  /SHARE/  SIN<40, 4) ,RUIN< 120, 13) , AFIN(30, 15) ,8EIN (30,9) , 

«  DSE (30 ,2) , AIDATA (30) ,C08TS(27> ,SCAL(78) 

ENSS  -  SCAL (28) 

IF  (ENSS  .LE.  -1.E30)  80  TO  20 
SLR  -  SCAL (29) 

IF  (SLR  .LE.  -1.E30)  SO  TO  10 
PC  >  ENSS  *  SLR 
80  TO  13 
10  PC  -  SCAL (30) 

IF  (PC  .LE.  -1.E30)  80  TO  20 
13  CUR  *  SCAL (23) 

IF  (CUR  .LE.  -I.E30)  80  TO  20 
CC  >  SCAL (26) 

IF  (CC  .LE.  -1.E30)  80  TO  20 
SCC  -  CUR  *  CC  •  ENSS  »  12.0 
CSN  ■  PC  ♦  SCC 
CALL  RITE ( 19 (CSN) 

80  TO  30 

20  CSN  >  COSTS (11) 

IF  (CSN  .LE.  -1.E30)  RETURN  1 
CALL  RITE( 19, CSN) 

30  RETURN 
END 

SUBROUTINE  SLRUSS  (ELRUSS , I ,H,T, t) 

CONNON  /SHARE/  SIN (40 ,4) f RUIN ( 120, 13) , AFIN (30 , 15) , SEIN (30 ,9) , 

•  DSE (50,2) , AIDATA (50) ,C0STS(27) ,SCAL (78) 

CONNON  /SIZES/  NSUB,NLRU,KLRU(40) ,NUHL(40> ,NAF,NSE,NDS,NAI 
CONNON  /RAN/  SDAT(40,9,2) , UDAT (120,7,2) , ADAT (30 , 3 , 2) ,EDAT <50 , 2 , 2) 
CONNON  /BASIC/  EH, ABFH,NACB,PBFH, ENNI I 
CONNON  /COSTIO/  IOIN, IOUT,NTH 
DIMENSION  UC ( 120) 

EQUIVALENCE  (UC ( 1 ) , RUIN ( 1 , 1 ) ) 

FHBNA  ■  SDAT (H,8,NTH) 

PS  •  UDAT (1,6, NTH) 


■'  ■  J 

»  J 
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ELAM  •  PBFH  *  PS  /  (FHBMA*12.0) 

IF  (T  .LE.  -1.E30)  RETURN  1 
CALL  BK8TK(ELAMI,T,KSTK) 

ELRUS8  ■  KSTK  •  UC  < I ) 

CALL  RITE (33 (FLOAT (KSTK) ) 

CALL  RITE(32,ELRUSS) 

RETURN 

END 

SUBROUTINE  SKSTK (ELAN, T, KSTK) 

COMMON  /SHARE/  BIN(40,4> ,RUIN<120, 13) , AFINtSO, IS) ,8EIN<30,9) , 

•  DSE(50,2) , A I  DAT  A ( SO ) ,C0STS<27) ,SCAL(7B) 

EQUIVALENCE  (EB0,BCAL(3) ) 

TL  ■  T  *  ELAN 
KSTK  ■  0 

IF  (TL  .LE.  EBO)  RETURN 
IF  (TL  .LT.  80.)  60  TO  S 
KSTK»1 
RETURN 
3  L-0 
SUM-0.0 
EXPHT-EXP(-TL) 

10  KSTK-KSTK+1 

SUM-SUM* (TL#*L>  »EXPMT/FACT (L) 

ANS- (TL-KSTK) «SUM*KSTK#  <TL*#KSTK) #EXPMT/FACT (KSTK) 

L-L+l 

IF  (ANS  .ST.  EBO)  60  TO  10 

RETURN 

END 

FUNCTION  FACT (N) 

DIMENSION  F(32),B(20) 

DATA  F/l. , 1. ,2. ,6. ,24. , 120. ,720. ,3040. ,40230. ,362880. ,3628800. 
&  3991680., 47900160. ,6.2270208E9,B.7178291E10, 1.3076744E12, 

6  2.092  790E13,3.3568743E14,6.4023737E15,1.2164310E17, 

6  2. 4329020E18,3. 1 090942E 1 9 , 1 . 1240007E21 ,2. 83820 17E22 , 
t  6. 2044840E23 , 1 . 351 1210E25 ,4. 0329146E26 , 1 . 0888869E28 , 

!i  3. 0488834E29 ,8. 8417620E30 ,2. 6525286E32 ,8. 2228387E33/ 

B (2) «. 16666666 
B (4) — .03333333 
B(6>«. 02380933 
0(8)--. 03333333 
B<10)-. 07373737 
8(12)—  .23113333 
8(14)*1. 16666666 
B(16)—  7.09216686 
B(18)-54. 97117794 
B(20>—  329.12424242 
M  ■  N+l 

IF  (M  .ST.  32)  80  TO  10 
FACT  -  F (M) 

RETURN 
10  SUM-0.0 


R-J#2.0 

SUM*B< J*2> / (R* (R-l . 0) * ( AMt# (R-l . 0) ) ) 

20  CONTINUE 

ALNX- ( AM-. 5) *AL06 ( AH) -AM+O. 91893853206+SUM 
FACT-EXP (ALNX) 

RETURN 

END 

SUBROUTINE  SCPINT  ( CP 1 NT , I 1 t 1 2 , * > 

COHHON  /SHARE/  SIN(40,4) f RU I N < 1 20 , 1 3 > , AFIN (SO, IS) ,8EIN (30,9) 

*  DSE (50,2)  , AIDATA (30)  ,C0STS<27)  ,SCAL(7B) 

CONNON  /SIZES/  NSUB,NLRU,KLRU (40) ,NUHL(40) , NAF ,NSE , NDS,NAI 
DIMENSION  UC ( 120) 

EQUIVALENCE  (UC(1) ,RUIN(1 , 1) ) 

CPINT  -  0.0 
AKTS  -  SCAL (31 ) 

DO  20  1-11,12 
UCI-UC(I) 

IF  (UCI  . LE.  -1.E30)  RETURN  1 
AIC  >  RUIN  ( 1 , 12) 

IF  (AIC  .ST.  -1.E30)  SO  TO  18 
IF  (AKTS  .LE.  -1.E30)  RETURN  1 
AIC  •  AKTS  *  UCI 
RUIN ( I , 12)  -  AIC 
18  CPINTL  -  UCI  +  AIC 
CALL  RITE (66, CPINTL) 

CPINT  -  CPINT  +  CPINTL 
20  CONTINUE 

CALL  RITE(36, CPINT) 

RETURN 

END 

SUBROUTINE  SCINST (CINST , 1 1 , 12 ,#) 

CONNON  /SHARE/  SIN (40,4) ,RUIN ( 120, 13) , AFIN (50 , 13) ,SEIN (30,9) 

*  DSE (50,2) , AIDATA(SO) .COSTS (27) , SCAL (78) 

COHHON  /SIZES/  NSUB, NLRU,KLRU (40) ,NUNL (40) ,NAF,NSE,NDS,NAI 
DIMENSION  UC ( 120) 

EQUIVALENCE (UC (1),RUIN<1,1)) 

CINST  «  0.0 
AKI  -  SCAL (32) 

DO  20  1-11,12 
CALI  «  RUIN ( 1,13) 

IF  (CALI  . 8T .  -1.E30)  60  TO  18 
UCI  >  UC(I) 

IF  (UCI  .LE.  -1.E30)  RETURN  1 
IF  (AKI  .LE.  -I.E30)  RETURN  1 
CALI  -  AKI  •  UCI 
18  CINSTL  >  CALI 

CALL  RITE (67, CINSTL) 

CINST  ■  CINST  ♦  CINSTL 
20  CONTINUE 


CALL  RITE (37 yCI NST ) 

RETURN 

END 

SUBROUTINE  SLRUDS  (ELRUDS, I , M , *> 

COMMON  /SHARE/  SIN <40 ,4) ,RUIN< 120, 13) , AFIN<50, 13) ,SEIN (30, 9) , 

*  DSE (50 ,2) , AIOATA(SO) ,CQSTS(27) , SCAL (78) 

COMMON  /BASIC/  EN,ABFH,NACB,PBFH,ENNII 

COMMON  /COSTIO/  IOIN, IOUT.NTH 

COMMON  /RAN/  SDAT (40,9,2) , UDAT (120,7,2), ADAT (50,3,2), EDAT (50,2,2) 
DIMENSION  UC(120) 

EQUIVALENCE  <UC(1) ,RUIN < 1,1) ) 

C 

IF  (PBFH  .IE.  -1.E30)  RETURN  1 
UCI  -  UC(1) 

IF  (UCI  .LE.  -1.E30)  RETURN  1 
PN  •  UDAT ( I ,5, NTH) 

FHBMA  >  SDAT (H,8,NTH) 

DRCT  >  RUIN ( I ,6) 

IF  (DRCT  .LE.  -1.E30)  RETURN  1 
DPLL  >  PBFH  #  PN  #  DRCT  /  FHBMA 
ELRUDS  •  DPLL  *  UCI 
CALL  RITE(69,0PLL) 

CALL  RITE (38,ELRUDS) 

RETURN 

END 

SUBROUTINE  STC  (TC  I  #) 

COMMON  /SHARE/  SIN(40 , 4) ,RUIN( 120, 13) , AFIN (50, 15) ,SEIN (50, 9) , 

*  DSE(S0,2) , AIDATA (50) , COSTS (27) , SCAL (78) 

COMMON  /RAM/  SDAT<40,9,2) ,U0AT<120,7,2) ,ADAT(50,3,2) ,EDAT(50,2,2) 
COMMON  /COSTIO/  IOIN, IOUT, NTH 
DATA  X/-1.E30/ 

C 

RPUN  «  SCAL (38) 

PSC  >  SCAL (36) 

OS  >  SCAL (4) 

PSO  ■  SCAL (37) 

IF  (RPUN  .LE.  X  .OR.  PSC  .LE.  X  .OR. 

«  PSO  .LE.  X  .OR.  OS  .LE.  X)  50  TO  10 
H  >  UDAT (I ,3, NTH) 

TC  ■  M  *  RPUN  *  2.0  *  (PSC  *  (l.O-OS)  +  PSO  #  OS) 

CALL  RITE (39, TC) 

RETURN 

C 

10  TC  >  RUIN (1,8) 

IF  (TC  .LE.  X)  RETURN  1 
CALL  RITE(39,TC) 

RETURN 

END 

SUBROUTINE  STCS  <TCS,N,«> 

COMMON  /SHARE/  SIN(40,4) ,RUIN(120, 13) ,AFIN(50, 15) ,SEIN(50,9> , 

*  DSE (50 ,2) , AIDATA (50) ,C0STS(27) , SCAL ( 78) 

DATA  X/-1.E30/ 
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COJT  >  AFIN (N, 6) 

IF  (COJT  .LE.  X)  RETURN  1 
ENNK  >  AFIN <Nt  1  > 

ACS  •  AFIN (N, 2) 

CIC  •  AFIN (N, 3) 

COT  -  AFIN (N, 4) 

PTT  >  8CAL (42) 

CAC8  >  SCAL (43) 


IF  (ENNK  .LE. 

X 

.OR. 

ACS  .LE. 

X 

.OR. 

•  CIC  .LE. 

X. 

OR. 

COT  .LE. 

X. 

OR. 

»  COT  .LE. 

X. 

OR. 

PTT  .LE. 

X) 

80  TO  10 

CTTS  ■  ENNK  «  (AC6+CIC)  ♦  PTT  ♦  COT  +  CACQ 
AFIN (N, 3)  >  CTTS 
60  TO  20 
C 

10  CTTS  >  AFIN (N, 3) 

IF  (CTTS  .LE.  X)  RETURN  1 
20  TCS  •  CTTS  ♦  COJT 
CALL  RITE (40, TCS) 

RETURN 

END 

SUBROUTINE  SSRUOS(SRUOS, I ,M,*) 

COMMON  /SHARE/  SIN(40,4) ,RUIN(120, 13) ,AFIN(SO, 15) ,SEIN(30,9) , 

*  OSE (50,2) t  A I  OAT  A (SO) ,C0STS(27> ,SCAL(7S) 

COMMON  /RAM/  SDAT<40,9,2) ,UDAT ( 120 , 7 , 2) ,ADAT(30,3,2> ,EDAT (50 , 2 , 2) 
COMMON  /BASIC/  EH,A8FH,NAC8,PBFH,ENNII 
COMMON  /C0ST1Q/  IOIN , IOUT ,NTH 
C 

PN  -  UDAT ( I ,4, NTH) 

FHBHA  -  SDAT (M , 8 , NTH) 

RCT  •  RUIN ( I ,6) 

IF  (DRCT  .LE.  -1.E30  .OR.  PBFH  .LE.  -1.E30)  SO  TO  10 
DPLS  >  PBFH  *  PN  *  DRCT  /  FHBHA 
UCSRU  ■  RUIN ( I  2) 

IF  (UCSRU  .LE. ’-1.E30)  CALL  SUCSRU (UCSRU , I , *10) 

SRUDS  -  DPLS  «  UCSRU 
CALL  RITE (73, DPLS) 

CALL  RITE(41 , SRUDS) 

RETURN 
10  RETURN  1 
END 

SUBROUTINE  SCFJ6  (CFJS , M , • ) 

COMMON  /SHARE/  SIN (40 ,4) ,RUIN ( 120, 13) , AFIN (50, 15) ,SEIN (50 ,9)  , 

•  DSE (50,2) , A I  DATA ( 30  > ,C0STS(27> ,SCAL<78) 

COMMON  /RAM/  SDAT (40,9 ,2) , UDAT (120, 7, 2) ,ADAT (50,3,2) , EDAT (50 , 2 , 2) 
COMMON  /COSTIO/  IOIN, IOUT, NTH 

COMMON  /SIZES/  NSUB,NLRU,KLRU (40) ,NUML(40) ,NAF,NSE,NDS,NAI 
DATA  X/-1.E30/ 

NSRU  •  SDAT (M,9,NTH) 

CNFL  «  SCAL (9) 

CTFL  ■  SCAL (10) 
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CTFS  >  SCAL (73) 
CNFS  -  SCAL (74) 
CTFX  >  SCAL (11) 
CNFX  -  SCAL (79) 


IF  (CNFL  .LE. 

X 

.OR. 

CTFL  .LE.  X  .OR. 

•  CTFS  .LE. 

X 

.OR. 

CNFS  .LE.  X  .OR. 

t  CTFX  .LE. 

X 

.OR. 

CNFX  .LE.  X)  80  TO  10 

CFJ6  -  NUHL(H)  «  (CNFL+CTFL)  ♦  NSRU  *  (CTFS+CNFS)  +  CTFX  ♦  CNFX 
CALL  RITE(42,CFJ8) 

RETURN 

10  CFJB  >  S!N(H,3) 

IF  (CFJ6  .LE.  X)  RETURN  1 
CALL  RITE (42f CFJ8) 

RETURN 

END 

SUBROUTINE  SCSJ6  (CSJB,M,#) 

COMMON  /SHARE/  S1N( 40, 4) ,RUIN (120, 13) , AFIN (30, 15) ,8EIN (30 ,9) , 

«  DSE (30,2) , AI DATA (50) ,C08T8(27) , SCAL (78) 

COHNON  /RAN/  SDAT(40,9,2) ,UDAT (120,7,2) ,ADAT(30,3,2) ,E0AT(90,2,2) 
COMMON  /SIZES/  NSUB,NLRU,KLRU(40) ,NUHL(40) ,NAF,NSE,NDS,NAI 
COHNON  /C08TI0/  10 1 N , I  OUT , NTH 
DATA  X/-1.E30/ 

CNSL  -  SCAL (12) 

CTSL  >  SCAL (14) 

CTSS  >  SCAL (IS) 

CNSS  •  SCAL (13) 

CTSX  -  SCAL (76) 

CNSX  •  SCAL (77) 


(CNSL 

.LE.  X 

.OR. 

CTSL  .LE. 

X 

.OR. 

CTSS 

.LE.  X 

.OR. 

CNSS  .LE. 

X 

.OR. 

CTSX 

.LE.  X 

.OR. 

CNSX  .LE. 

X) 

80  TO  10 

NSRU  «  SDAT (H,9,NTH> 

CSJ8  >  NUHL(H)  *  (CNSL+CTSL)  ♦  NSRU  »  (CTSS+CNSS)  +  CTSX  ♦  CNSX 
CALL  RITE(43,CSJ8) 

RETURN 

C 

10  CSJ8  >  SIN(N,4) 

IF  (C8J8  .LE.  X)  RETURN  1 
CALL  RITE(43,CSJ8) 

RETURN 

END 

SUBROUTINE  SCPUSE 

COHNON  /SHARE/  SIN (40, 4) f RUIN ( 120 , 13) , AFIN (SO , IS) ,SEIN (SO, 9) , 

«  DSE (SO, 2) , AIDATA (SO) t  COSTS (27) ,SCAL(78) 

COHNON  /SIZES/  NSUB,NLRU,KLRU (40) ,NUHL (40) ,NAF,NSE,NDS,NAI 
DIMENSION  CPUSE (SO) ,CSESN(50) ,EYEH(50) 

EQUIVALENCE  (CPUSE ( 1 ) , SEIN( 1 , 4) ) , (CSESH ( 1 ) ,SEIN ( 1 ,5) ) 
EQUIVALENCE  (EYEH ( 1 ) ,SEIN( 1 ,6) ) 

C 

DO  10  JM,NSE 


16>7 


CALL  R1TE(S7, FLOAT (KSTK) ) 

CALL  RITE(47,SRU8S) 

RETURN 
10  RETURN  1 
END 

SUBROUTINE  SLLR  (ELLR,N,«) 

CONNON  /SHARE/  SIN(40,4) , RUIN ( 120, 13) ,AFIN<50,15> ,SEIN(50,9) , 

*  DSE(S0,2) , AIDATA (SO) , C0STS(27) fSCAL (78) 

OATA  X/-1.E30/ 

EYELR  >  AFIN(N, 15) 

OSCY  >  SCAL (44) 

PH9  ■  SCAL (45) 

IF  (EYELR  .LE.  X  .OR.  OSCY  .L£.  X  .OR. 

*  PNB  .LE.  X  .OR.  PHB  .Efl.  0.0)  RETURN  1 
AKH  -  AFIN(N,11) 

CHPS  •  AFIN(N,9) 

OPF  >  AFIN (N, 10) 

IF  (AKH  .LE  .X  .OR.  CHPS  .LE.  X  .OR.  OPF  .LE.  X)  BO  TO  10 
DLR  -  AKH  #  (CHPS  ♦  OPF) 

AFIN(N| 12)  ■  DLR 
60  TO  20 

10  DLR  >  AFIN (N, 12) 

IF  (DLR  .LE.  X)  RETURN  1 
20  ELLR  ■  DLR  +  EYELR  +  OSCY  /PHB 
CALL  RITE(48,ELLR) 

RETURN 

END 

SUBROUTINE  8SPRT3  (SPRTS ,*) 

COHHON  /SHARE/  SIN(40f4) fRUIN(120,13) f AFIN(50, 15) ,SEIN(50f9) , 
«  DSE (50,2) , AIDATA (50) ,C08TS(27) , SCAL (78) 

COHHON  /SIZES/  NSU8,NLRU,KLRU(40) fNUHL(40) ,NAF,NSE,NDS,NAI 
COHHON  /BASIC/  EH,ABFH,NACB,PBFH,ENNII 

AKSPR  »  SCAL (6) 

IF  (AKSPR  .LE.  -I.E30)  RETURN  1 
UC  ■  0.0 
DO  10  I>lfNLRU 
UC  «  UC  +  RUIN  ( I  •  1 ) 

10  CONTINUE 

SPRTS  >  AKSPR  *  UC  *  EH 
CALL  RITE(49, SPRTS) 

RETURN 

ENO 

SUBROUTINE  SCDSE  (CDSE,«) 

COHHON  /SHARE/  SIN (40 ,4) , RUIN ( 120 , 13) , AFIN (50, 15) , SEIN (50 , 9) , 

*  OSE (50,2) , AIDATA (30) ,C0STS(27) , SCAL (78) 

COHHON  /SIZES/  NSUB,NLRU,KLRU<40) fNUHL(40) ,NAF,NSE,NDS,NAI 

COSE  >  0.0 
AKSED  >  SCAL (44) 


COMMON  /SHARE/  3IN(40,4) , RUIN (120, 13) ,AF IN (50,15) ,SEIN( 50,9) , 

*  DSE (50,2) , AIDATA(SO) ,C0STS(27) ,SCAL(78) 

COMMON  /SIZES/  N8UB,NLRU,Kl.RU(40) ,NUML(40) ,NAF,NSE,NOS,NAI 

COMMON  /BASIC/  EH,ABFH,NACB,PBFH,ENNII 

COMMON  /COSTIO/  IOIN, IOUT,NTH 

CHARACTER*7  AFID.SEID 
CHARACTER*7  SEBID,LEQID 

COMMON  /EQIDS/  SEOID (40) ,LEQID ( 120) , AFID (50) ,SEID (50) 

WR I T E ( I OUT )  0,  0.0 

NRITE( I OUT-9, 999)  0,  0.0 
999  FORMAT ( I 10, 2X, El 5. 8) 

DO  10  N*1,N8U8 

WRITE ( IOUT)  SEOID (N), (SDAT (N, I , 1 ) , I-t ,9) , (SIN (N, J) , J-l ,4) 

WRITE < I OUT— 9 , 998)  SEOID (N) , (SDAT (N, I , 1 ) , I>1 , 9) , (3IN(N, J) , J>1 ,4) 
998  FORMAT (A7,/,7(E15.8,2X),/,6(E15.8,2X)) 

10  CONTINUE 

DO  30  N»1 , NLRU 

WRITE (IOUT)  LEQID(N) , (UDAT(N, J , 1 ) , J-2,7) , <RUIN(N, J) , J>1 ,13) 

WRITE CIOUT-9,997)  LEOID(N) , (UDAT (N,J , 1 ) , J-2,7) , (RUIN (N , J ) ,J-1,13> 
997  FORMAT (A7,/,7(E15.8,2X),/,7(E13.B,2X),/,3(E13.B,2X)) 

30  CONTINUE 

DO  SO  N-1,NAF 

WRITE (IOUT)  AFID(N) , ADAT (N, 1 , 1 ) , ADAT <N,2, 1 ) , (AFIN (N, J) ,J-1,15) 
WRITE (IOUT-9, 996)  AFID(N) , ADAT (N, 1 , 1 > , ADAT (N,2, 1 ) , 
t  <AFIN(N,J),J»1,15) 

996  FORMAT (A7,/,7(E15.8,2X),/,7(E15.8,2X),/,3(E15.8,2X)) 

30  CONTINUE 

DO  70  N-1,NSE 

WRITE (IOUT)  SEID(N) , EDAT (N, 1 , 1 ) ,EDAT (N,2 , 1) , (SEIN(N, J) ,J>1,9) 
WRITE (IOUT-9, 995)  SEID(N) , EDAT (N , 1 , 1 > , EDAT (N,2, 1 ) , 
t  <S£IN(N, J) , J*1 ,9) 

993  FORMAT (A7,/,7(E15.8,2X),/,4(E13.8,2X)) 

70  CONTINUE 

IF  (NAI.EO.O)  80  TO  110 
DO  90  N-1,NAI 

WRITE (IOUT)  N,AIDATA(N) 

WRITE ( IOUT-9, 994)  N,A1DATA(N) 

994  FORMAT <I10,2X,E13.8) 

90  CONTINUE 

110  WRITE (IOUT)  COSTS 

WRITE < I OUT-9, 993)  COSTS 
993  FORMAT (12(7(E15.8,2X) ,/,)) 

WRITE (IOUT)  SCAL 


WRITE ( I OUT-9 ,993)  SCAL 

WRITE ( IOUT)  EH, ABFH, FLOAT (NACB) ,PBFH,ENNI I 

WRITE(I0UT-9,992)  EM, ABFH, FLOAT (NACB) f  PBFH f ENN 1 1 
992  FORMAT (S(E1S.8,2X) ) 

WRITE (IOUT)  NUML 

WRITE ( I OUT-9 ,991 )  NUML 
991  FORMAT (4(10112,/)) 

RETURN 

END 

SUBROUTINE  3CIM  (CIH,«) 

COMMON  /SHARE/  SIN (40,4) ,RUIN (120 , 13) , AFIN (30, 13) , SEIN (30 ,9) , 

*  DSE(30,2) , AIDATA (30) ,CQ8TS<27) ,8CAL(78) 

COMMON  /BASIC/  EM , ABFH , NACB , PBFH , ENN I 1 

COMMON  /SIZES/  NSUB,NLRU,KLRU(40) ,NUHL(40) ,NAF,NSE,NDS,NAI 

CIM  •  0.0 
RHC  •  SCAL (34) 

IF  (RHC  .LE.  -1.E30)  SO  TO  20 
SA  •  SCAL (33) 

IF  (SA  .LE.  -1.E30)  SO  TO  20 
DO  10  I-t,NLRU 
SP  ■  RUIN (1,11) 

PP  *  RUIN ( 1,10) 

PA  ■  RUIN ( I ,9) 

IF  (SP  .LE.  -I . E30  .OR.  PP  .LE.  -1.E30  .OR. 

*  PA.  LE.  -1.E30)  SO  TO  20 
ENNII  ■  1  ♦  PA  ♦  PP 

BLII  -  ENNII  ♦  SP 

Cl ML  -  RHC  *  ENNII  *  EM#SA*BLII 

CALL  RITE(64,CIHL) 

CIM  >  CIM  ♦  Cl ML 
10  CONTINUE 

CALL  RITE (21 f CIM) 

RETURN 

20  CIM  >  COSTS (13) 

IF  (CIM  .LE.  -1.E30)  RETURN  1 
CALL  RITE(21,CIM) 

RETURN 

END 

SUBROUTINE  SCFAI (CFAI , ») 

COMMON  /SHARE/  SIN (40 , 4) , RUIN < 120, 13) , AFIN <30 , 15) , SEIN (30 ,9) , 
«  OSE (30,2) ,AIDATA(30> ,C0STS(27> ,SCAL<78) 

COMMON  /BASIC/  EMt ABFH, NACB, PBFH f ENNII 

CFB  >  SCAL (69) 

IF  (CFB  .LE.  -1.E30)  SO  TO  10 
CFAI  ■  EM  *  CFB 
CALL  RITE (35, CFAI ) 

80  TO  20 


'  a  *  •  *  .  *  -  *■  •  -  •  '  «  *  «  *  «„*  •  *  •*«*•*  .  /  »  ’  I  *  .  *  V  «  •  »*_ 


C 


nonnoonoononooooonnooonoooonoooooo 


10  CFAI  •  COSTS (26) 

IF  (CFAI  .LE.  -1.E30)  RETURN  1 
CALL  RITE(33,CFA1) 

20  RETURN 
END 

SUBROUTINE  XOUT 

THIS  ROUTINE  IS  CALLED  BY  HAIN  TO  DISPLAY  OUTPUTS  FROM  R+N 
MODEL  (/RAM/)  OR  COST  MODEL  (OUTPUT  FILES  I03A,  I04A). 

NMAX  »  16  -  ONLY  R+H  OUTPUTS  AVAILABLE 
66  -  ALL  OUTPUTS  AVAILABLE 

101  >  R+H  BASE  FILE 

102  -  OPTIONAL  R+M  PERTURBED  FILE 
I03A  ■  BASE  OUTPUT  FILE 

I04A  *  OPTIONAL  PERTURBED  OUTPUT  FILE 
CONDITIONAL  RETURN  -  TERMINATE  THE  PR08RAM 


/  RAM/ 


SDAT 

UDAT 

ADAT 

EDAT 

1 

MTTRS 

HTTR 

#  FMMH 

•  TSDEN 

2 

MTTRF 

HHH 

•  SMMH 

«  TSDOT 

3 

HTTRT 

•  NEI8HT 

MMHT 

4 

MMHS 

•  PH 

3 

MMHF 

t  PN 

6 

MMHT 

t  PS 

7 

AVAIL 

*  LN3RU 

8 

«  NFHBHA 

9 

*  SNSRU 

t  >  DENOTES  COST  MODEL  INPUT 


REAL  ST0RAU20)  ,ST0RB(120) 

INTE8ER  JTOT (49) , JAOD (13) 

INTE6ER  DUMA (20) , DUNN (6) 

INTEBER  JTYP (49) ,K0UNT(3) 

CHARACTERMO  OUTS (66) 

CHARACTER+7  BLANK , TEMP (30) 

C 

COMMON  /OVER/  JABT, 102, I04A, JN.NMAX , NLAST 
C 

INTESER  MASK, TITLE 

COMMON  /ALL/  NOTHER, KPR,KSO,KLI ,NMASK,NTITL,MASK (10) , TITLE (10) 


ooooooooooooooooooooooorj 


CHARACTER#?  AFID v SEXD 
rwAPArTPP#7  cporn  i porn 

COMMON  /EQID8/  SEQIDMO) ,LEBID(120) ,AFID(S0) ,8EID<30) 

COMMON  /SIZES/  NSUB, NLRU ,KLRU< 40) ,NUNL(40) ,NAF,NSE,ND8,NAI 

COMMON  /RAN/  8DAT<40,9,2) ,UDAT < 120,7,2) , ADAT (30,3,2) ,EDAT (30,2,2) 

COMMON  /LINES/  MAXLIN 

CHARACTER* 1  XMASK,XT1TLE 
COMMON  /JJF/  XMASK(IO) , XTITLE(IO) 

DATA  KOUNT ( 1 ) / 1  / 

DATA  JTYP/22*1, 3, 3, 1,1, 2, 2, 3, 3, 4, 3, 2, 2, 3*3, 3, 4, 1,1, 3, 3*1, 3,1/ 

DATA  JTOT/23*!, 0,14*1, 0,1, 1,0, 3*1, 0,1/ 

DATA  JADD/3*0, 3*1, 0,1, 0,4*1/ 

DATA  BLANK/'  '/ 

IJATA  flllTQ  /  '  MTTBS  •  .  *  MTTDP  »  .  •  MTTBT  '  .  'MMUS  *  .  ’  MMUP  *  . 


AMMHT 1 


w  i  i  y  w  w  ■  y  wvn  y  wwta  y  wwn  y  WWW  y  w  an  y  w  w  •  y  w  i  «■  y 

'CPTI ' , 'CDRI ' , ' C J 6 1  * , 'COM' , 'CSM* , 'CSPI ' , 'CSEI ' , 'C8NI ’ , 'LRUSS' , 
'STKL' , * C I M I ' , 'CFAI ' , 'CPINT' , 'CINST' , 'LRUDS ' , ' TC ' , 'TCS ' , 

' SRUDS ' , *CFJ6‘ , 'CSJB' , ' CPU3E * , ' CSESM  * , ' IH ' , * SRUSS ' , ' LLR ' , 
'SPRTS* , 'CDSE ' , ’NSER ' , 'CRO' , 'NRC* , 'RC' , 'CDP* , 'LCC’ , 'STKS' , 
'RCY'/ 

R+M  OUTPUTS 


J 

NAME 

JADD 

i  OUTPUTS 

1 

MTTRS 

0 

NSUB 

2 

MTTRF 

0 

NSUB 

3 

MTTRT 

0 

NSUB 

4 

MMHS 

1 

NSUB 

3 

MMHF 

1 

NSUB 

b 

MHHT 

1 

NSUB 

7 

AVAIL 

0 

NSUB 

8 

MFHBMA 

1 

NSUB 

9 

HTTRL 

0 

NLRU 

10 

MMHL 

1 

NLRU 

11 

AMMHF 

1 

NAF 

12 

AMMHS 

1 

NAF 

13 

AMMHT 

1 

NAF 

COST 

OUTPUTS 

J 

NAME 

JTOT 

KOUNT 

18 

CS 

1 

1 
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F"  ^ »  .  »  .  1 —  V  1 

y  “  *  *  • 

► 

V 

i 

k 

1 

-  ■ 

:  c 

1? 

CO 

1 

1 

1 

■  . 

t  C 

20 

C01 

1 

1 

1 

:  ;  : 

i  c 

21 

CS1 

t 

1 

l 

!  c 

22 

CPT 

1 

1 

1 

► 

l  c 

23 

CPP 

1 

1 

1 

- .  , 

•  c 

24 

C8P 

1 

1 

1 

[  c 

23 

COR 

1 

1 

1 

r  c 

26 

CSE 

1 

1 

1 

l  c 

27 

CSM 

1 

1 

1 

-j  : 

1  c 

28 

CJ8 

1 

1 

1 

c 

29 

cm 

1 

1 

1 

c 

30 

COP 

1 

1 

1 

.  *  ^ 

c 

31 

CFL 

1 

1 

1 

y- 

c 

32 

CPT  I 

1 

1 

1 

I  c 

33 

CORI 

1 

1 

l 

■ 

34 

CJ81 

1 

1 

1 

c 

35 

CON 

1 

1 

1 

c 

36 

C8N 

1 

1 

1 

c 

37 

CSPI 

1 

1 

1 

c 

38 

CSEI 

1 

1 

1 

-  C 

39 

CSM  I 

1 

1 

1 

~  •  *« 

9  c 

40 

LRUSS 

1 

NLRU 

3 

l 

c 

41 

STKL 

0 

NLRU 

3 

c 

42 

cm 

1 

1 

1 

c 

43 

CFAI 

1 

1 

1 

c 

44 

CPINT 

1 

NSUB 

2 

s  c 

43 

CINST 

1 

NSUB 

2 

*  c 

46 

LRUDS 

l 

NLRU 

3 

L 

c 

47 

TC 

l 

NLRU 

3 

c 

48 

TCS 

1 

NAF 

4 

c 

49 

SRUD8 

1 

NLRU 

3 

•  -  ' 

c 

30 

CFJ6 

1 

NSUB 

2 

.  -  .'  V' 

i  c 

31 

CSJB 

1 

NSUB 

2 

— - 

1  c 

32 

CPUSE 

1 

NSE 

5 

L.  .. 

c 

53 

C8ESH 

1 

NSE 

3 

•  i 

c 

34 

IH 

1 

NSE 

3 

c 

33 

SRUSS 

1 

NLRU 

3 

c 

36 

LLR 

0 

NAF 

4 

■  c 

37 

SPRTS 

1 

I 

1 

^  c 

38 

COSE 

1 

1 

1 

-  1 

c 

39 

NSER 

0 

NSE 

5 

c 

60 

CRD 

1 

1 

1 

*  < 

c 

61 

NRC 

1 

I 

1 

V;V\i 

c 

62 

RC 

1 

l 

1 

y-.-.y 

i  c 

63 

COP 

1 

l 

1 

*•*  *”> 

c 

64 

LCC 

i 

1 

1 

: 

c 

65 

STKS 

0 

NLRU 

3 

c 

66 

RCY 

1 

1 

t 

c 

■:  c 

J  ■ 

14  'SET'  -  CALL 

SUBROUTINE  SET 

■■■■! 

•  c 

J  » 

13  ‘GLOSSARY’  - 

CALL 

SUBROUTINE  DEFINE 

c 

J  * 

16  ‘END’  -  TERMINATE 

THE  PROGRAM 

-  -  :  i 

w* 

/ 

*  V 

1 
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C  J  -  17  ' ADJLCC'  -  CALL  SUBROUTINE  ADJUNP 

C 

KOUNT (2)-NSUB 
KOUNT (3)>NLRU 
KOUNT (4)-NAF 
KOUNT (S)>NSE 

OUTPUT  DESIRED 

96  IF  (NOTHER  .EQ.  0)  NRITE<#,38> 

98  FORMAT!/ , *  REPORT?  ') 

CALL  INP(4,0UTSf0,0,NMAXfNHAX,J,*1000t*96) 


IF 

(J  .SE.  18) 

BOTO 

99 

IF 

(J  .EQ.  16) 

SOTO 

999 

IF 

(J  .EQ.  17) 

SOTO 

140 

IF 

(J  .SE.  14) 

SOTO 

190 

1 

SET  MASK  LEN6TH  FOR  R+H  OUTPUTS. 

HAX-7 

IF  (J  .ST.  10)  MAX-9  .  . 

BOTO  60  I 

SET  POINTERS  AND  MASK  LENGTH  FOR  COST  OUTPUTS. 

ICODE  •  OUTPUT  CODE  (10-98) 

IND  -  INDEX  INTO  JTYP  (1-49) 

KTYP  ■  1  -  SCALAR  OR  COST 

2  -  SUBSYSTEM  I _ 

3  -  LRU 

4  -  AFSC 

5  -  SE  v 

99  ICODE-J-8 

IND-ICODE-9  I _ - 

KTYP-JTYP(IND) 

NTQTAL-KOUNT (KTYP) 

IF  (KTYP  .EO.  1)  SOTO  100 
MAX-7 

IF  (KTYP  .EQ.  4  .OR.  KTYP  .EO.  9)  MAX-9 

t 

SET  MASK. 


60  IF  (NMASK  .EQ.  -1)  SOTO  69 
NUM-NMASK 
BOTO  79 

69  IF  (NOTHER  .EO.  0)  WRITE (*,70) 

70  FORMAT (/,'  MASK-  ') 

CALL  INP(S,0,XMASKfO,MAX,50tNUM,«1000,t68) 

DUMP  R+H  OUTPUTS  FROM  /RAM/. 

79  IF  (J  .SE.  18)  SOTO  100 


’•  W*  .**  »  ■  •**  - 
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IF  (J  . BT.  8)  SOTO  80  ] 

SUBSYSTEM  DATA 

CALL  DUMP <101,102, SDAT ( l , J , 1) , SDAT < 1 , J ,21 , NSUB , J ADD < J ) , XMASK , 
ti  NUM,SEQID,7,0UTS( J) ) 

SOTO  96 

LRU  DATA 

80  JND-J-8 

IF  (J  . BT.  10)  SOTO  90 

CALL  DUMP <101,102, UOAT < 1 , JND, 1 ) , UDAT ( 1 , JND , 2) , NLRU , J ADD < J ) , XMASK 
k  MUM, LEO ID, 7 , OUTS ( J ) ) 

BOTO  96 

AFSC  DATA 

90  JND-J-10 

CALL  DUMP (101 , 102, ADAT ( 1 , JND, 1) , ADAT ( 1 , JND,2) ,NAF, JADD(J) , XMASK, 

6  NUH , AF I D , 9 , OUTS ( J ) ) 

SOTO  96 

NON  COST  OUTPUTS  FROM  I03A  AND  MAYBE  I04A.  FIRST  REMIND  AND 
BYPASS  HEADER  RECORD. 

100  K-0 

REMIND  14 
READ (14)  DUMA 
READ (14)  DUNN 
IF  ( I04A  .EQ.  0)  80T0  110 
REMIND  19 
READ (19)  OUHA 
READ (19)  DUNN 

READ  FRON  OUTPUT  FILE(S)  UNTIL  CODE  ON  FILE  MATCHES  REOUESTED 
CODE. 

110  READ (14)  I , VAL1 

IF  (I  .EQ.  0)  SOTO  990 
IF  ( I04A  .NE.  0)  READ(IS)  I,VAL2 
IF  ( ICQDE  . EQ.  I)  SOTO  120 
SOTO  110 

TRANSFER  DATA  INTO  STORA  (AND  STORB).  SET  MORE  IF  NECESSARY. 


120  K-K+t 

STORA(K) *VAL1 

IF  (I04A  .NE.  0)  STORB (K) *VAL2 
IF  (K  .LT.  NTOTAL)  SOTO  110 
C 

C  CALL  DUMP  MITH  C0RRESP0N0IN6  PARAMETERS  BASED  ON  KTYP  (SINGLE 


nonnoonnoo  o  o  oorj 


ijh  i. ii  4'.  J'  w  if  r;  .■ 


C  VALUE,  SUBSYSTEM,  ETC.). 

C 

SOTO  (121, 122,123,124,123)  ,KTYf> 

STOP  1234 

121  CALL  DUMP ( 103A, IQ4A , STORA , STORB , 1 , 0 , XMASK ,0 ,BLANK , 6 , OUTS  ( J ) ) 

SOTO  36 

122  CALL  DUMP(IQ3A, I04A, STORA, STORB, NSUB, JTQT(IND) , XMASK, NUM.SEBID, 7, 
It  OUTS(J)) 

SOTO  36 

123  CALL  DUMP ( I 03A, I 04A, STORA, STORB, NLRU,J TOT (1ND) , XMASK,NUM,LEQID,7, 
It  OUTS (J) ) 

SOTO  36 

124  CALL  DUHP(I03A, I04A, STORA, STORB, NAF, JTOT(IND) , XMASK, NUN, AFID, 3, 

It  OUTS(J) ) 

SOTO  36 

123  CALL  DUMP ( I 03A, 1 04A, STORA, STORB, N3E,J TOT ( IND) , XNASK,NUM,SEID,5, 

6  OUTS(J) ) 

SOTO  36 

EXTRACT  ADJUSTED  LCC  AND  OUMP.  -1  IN  CALL  INHIBITS  SORT. 

140  CALL  ADJUNP(I03A,I04A, STORA, STORB, TEMP, NADJ, *143) 

CALL  DUMP (I03A,I04A, STORA, STORB, NADJ,1, 0,-1, TEHP, 3, OUTS(J)) 

SOTO  36 

143  HRITE (*, 146) 

146  FORMAT (/, '  INSUFFICIENT  DATA  TO  COMPUTE  ADJLCC') 

SOTO  993 

130  IF  (J  .EQ.  14)  SOTO  160 
CALL  DEFINE 
SOTO  36 
160  CALL  SET 
SOTO  36 

990  HRITE(*,992J 

992  FORMAT (/,'  NOT  COMPUTED.') 

993  NOTHER-O 
80T0  36 

999  JABT-1 
1000  RETURN 
END 

SUBROUTINE  DUMP (101 , 102, A,B,NTOT , JTOT , XMASK.NUH, ID , LID, HEAD) 

THIS  ROUTINE,  CALLED  BY  OUTPUT,  PRINTS  ARRAYS  A  AND  B  TO  THE 
USER. 

101  -  BASE  FILE 

102  -  PERTURBED  FILE  (OR  ZERO  IF  NONE) 

A  -  BASE  DATA 

B  -  PERTURBED  DATA 

NTOT  -  SIZE  OF  A  (AND  B) 

JTOT  -  0  -  DON'T  TOTAL  LIST 
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o  o  ci  o  o  r>  o 


-  1  -  TOTAL  LIST 
MASK  -  MASK  FOR  PRINTING 
NUN  -  LENGTH  OF  MAGK 
ID  -  EQUIPMENT  NAMEG 
LID  -  LENGTH  OF  ID 
HEAD  -  OUTPUT  NAME  TO  BE  DISPLAYED 

INTEGER  JFLA6(120),IND(120) 

REAL  A(1),B(1),X(120,3),TQT(2) 

CHARACTER* 1  XMASK(IO) , I DS (10) 

CHARACTER*?  ID(1> , XID ( 120) 

CHARACTER*!*)  HEAD,PLIB,PC 
CHARACTER* 10  BL , CHA , D I F , DASH , TOTL , 0UT1 , 0UT2 
CHARACTER* t 3  FIELD (3) 

INTEGER  MASK, TITLE 

COMMON/ ALL /MOTHER, KPR,KSO,KL I , NMASK, NT  I TLt MASK UO) .TITLE  <  20) 
C 

DATA  BL  /'  '/ 

OATA  CHA  /'%  CHANGE  '/ 

DATA  DIF  /'DIFFERENCE'/ 

DATA  DASH/' . '/ 

DATA  TOTL/ 'TOTAL  '/ 

DATA  OUTl/'BSEOUT  '/ 

DATA  0UT2/ 'PRTOUT  '/ 

C 

N»0 

TOT ( 1 ) *0.0 
T0T(2)«0.0 
XMAX-l.E-ll 

IF  (102  .EQ.  0)  GOTO  3 
C 

IF  (KPR  .EQ.  0)  GOTO  1 

JP-KPR 

GOTO  3 

1  IF  (NOTHER  .EQ.  0)  WRITE (*.2) 

2  FORMAT (/, '  DO  YOU  WANT* ',/, 

*  1  -  X  CHANGE’ ,/, 

«  2  -  DIFFERENCE  ?  ’) 

CALL  INP ( 1,0,0, 1,2, 170 ,JP,*230f*l) 

C 

C  LOOP  THROUGH  DATA,  MOVING  A  AND  B  TO  X(N,l)  AND  X(N,2>.  SET 
C  X (N ,3)  TO  DIFFERENCE  OR  X  CHANGE  (IF  PERTURBING).  TOTAL  AS 
0  WE  GO. 

3  DO  i  4-l,NT0T 

IF  (NUM  ,LE.  0)  GOTO  3 

READ  (IDU)  ,4)  ( IDS  (M)  , M« 1 , LID ) 

4  FORMAT (7A1 ) 

CALL  MATCH ( NUM, XMASK, LID, IDS, *6) 

3  N-N+l 
AJ-A(J) 

C  XMAX  WILL  DEFINE  FORMAT. 


CJ  u  u  u  u  u  u 


XHAX  >  AM A X 1 (XHAX,ABS(AJ) ) 

T0T<1)  -  TOT ( 1 )  +AJ 
X  (N, 1  )»AJ 
XID(N)»ID(J) 

IND(N)-N 

IF  (102  .EQ.  0)  SOTO  6 
BJ-B(J) 

XHAX  >  AHAX1 (XHAX, ABS(BJ) ) 

TOT (2) »TOT (2) +BJ 

X(N,2)»BJ 

TEHP-BJ-AJ 

IF  (JP  .EQ.  1)  TEHP»TEMP*100.  /  (AJ+l.E-20) 

X (N,3)»TEHP 

6  CONTINUE 

NUH  <  0  IS  SPECIAL  CASE  TO  INHIBIT  SORT  OR  IF  ONLY  ONE  ITEH 
DON'T  SORT. 

IF  (NUH  .LT.  0)  SOTO  160 
IF  (N-l)  7,160,9 

7  WRITE (»,8) 

8  FORMAT ( ’  NO  DATA') 

NOTHER-O 

RETURN 

DETERHINE  HON  TO  SORT. 


9  IF  (KSO  .EQ 
IAS-KSO 
SOTO  30 
10  IF  (NOTHER 
20  FORHAT(/, ' 
CALL  INP(3, 
30  IF  (IAS  .EQ 
40  IF  (NOTHER 
50  FORHAT (/ , ' 
CALL  INP(3, 


.  -1)  SOTO  10 


.EQ.  0)  HRITE (*,20) 
SORTED?  ’) 
0,0,0,0,210, IAS, *230, *10) 
.  0)  SOTO  160 
.EQ.  0)  HRITE (», 50) 
ASCENDIN6?  ') 
0,0,0,0,220, IAS, *230, *40) 


IN*1 

IF  (102  .EQ 
60  IF  (NOTHER 
WR I TE ( * , 70 ) 

70  FORHAT ( /,' 

* 

• 

IF  (JP  .EQ. 

71  FORHAT ( ' 

IF  ( JP. EQ. 2 

72  FORHAT (' 

74  CALL  INPU, 
JAB8-0 
IF  (IN  .NE. 


.  0)  SOTO  80 
.NE.  0)  SOTO  74 

SORT  ONi  ',/, 

1  -  BASE  DATA',/, 

2  -  PERTURBED  DATA') 
1)  WRITE**, 71) 

3  -  l  CHANBE  ?  ') 

)  WRITE!*, 72) 

3  -  DIFFERENCE  ? 

0,0, 1,3, 150, IN, *230, *60) 

3)  SOTO  80 


c-»  r>  o  n  n  o  nnnonnnnnn 


73  IF  (NQTHER  .EQ.  0)  MRITE(#,77) 

77  FORMAT!/, *  SORT  ON  ABSOLUTE  VALUE? 

CALL  INP <3, 0,0, 0,0, 230, JABS ,*230, *73) 

AT  THIS  POINT! 

IAS  ■  0  -  ASCENDIN8 

■  1  -  0ESCENDIN8 
IN  -  1  -  SORT  ON  BASE 

»  2  -  SORT  ON  PERTURBED 

■  3  -  SORT  ON  DIFFERENCE  OR  X  CHAN8E 
JABS  -  0  -  SORT  RE8ULAR 

-  1  -  SORT  ON  ABSOLUTE  VALUE 


BO  NEXT-0 

IF  (IAS  .EQ.  0)  NEXT-N+t 
DO  90  J-l  ,N 
JFLA8(J)«0 
90  CONTINUE 

SORT  BY  POINTER  IND. 

DO  130  J-1,N 
XMIN-1.E30 
DO  100  K-1,N 

IF  (JFLAS(K)  .EO.  1)  60T0  100 
XKIN  «  X (K, IN) 

IF  (JABS  .EQ.  1)  XKIN-ABS(XKIN) 

IF  (XKIN  . 8E.  XMIN)  GOTO  100 
XMIN-XKIN 
KSAVE-K 
100  CONTINUE 

JFLA8(KSAVE)>1 
IF  (IAS  .EO.  0)  NEXT-NEXT-1 
IF  (IAS  .EO.  1)  NEXT-NEXT+1 
IND(NEXT)>KSAVE 
130  CONTINUE 

SET  UP  HEADERS  ANO  FLA8S 

160  PLIB-BL 
PC-BL 
NP-1 
NT«l 

IF  (102  .EQ.  0)  GOTO  190 
PLIB-0UT2 

IF  (JP  .EO.  1)  PC-CHA 
IF  (JP  .EQ.  2)  PC-DIF 
NP«3 
NT-2 

190  MRITE(*,200)  HEAD,0UT1 ,PLIB,PC 

200  FORMAT (1X,1H*,A10,1X,A10,4X,A10,4X,A10) 


non  non  r>  r>noo  oooooo  no  ooo 


LINES-0 


SET  FORMAT 

JF«ALQ810(XMAX)+3 
IF  (JF.LT.l)  JF-1 


00  210  M«1,N 
CALL  AB0RT(LINES,#230) 

SET  NEXT  INDEX 

K«IND(N) 

ENCOOE  AND  MAYBE  INSERT  COMMAS. 

DO  203  J»1,NT 

CALL  CONVT (JF, FIELD (J) ,X(K, J) ) 

203  CONTINUE 

FOR  X  CHANGE,  SIMPLY  ENCODE,  BUT  FOR  DIFFERENCE,  CONSIDER 
COMMAS  IN  CONVT. 

IF  (NP  .LT.  3)  SOTO  210 
IF  (JP  .EQ.  2)  S0T0  208 
WRITE (FIELD (3) ,204)  X (K , 3) 

206  FORMAT (F12. 1 , IX) 

GOTO  210 

208  CALL  CONVT (JF, FIELD (3) ,X (K,3) ) 

210  HRITE<*,213)  XID(K) , (FIELD (J) ,J*1 ,NP) 

213  FORMAT (1X,A7,3(A13,1X) ) 

PRINT  TOTAL 

IF  <  JTOT  .EQ.  0  .OR.  N  .EQ.  11  RETURN 
DO  217  J«1,NT 

CALL  CONVT (JF,FIELD(J) , TOT  ( J) ) 

217  CONTINUE 

AS  BEFORE  NITH  Z  CHANGE  OR  DIFFERENCE. 

IF  (NP  .LT.  3)  GOTO  219 
IF  (JP  .EQ.  2)  SOTO  218 

XXX  -  (TOT (2)— TOT ( 1 ) >#100.0/ (TOT < 1 >♦. IE-20) 

WRITE (FIELD (3) ,206)  XXX 
GOTO  219 

218  CALL  CONVT (JF, FI ELD (3) , TOT (2) -TOT < 1 ) ) 

C 

C 

219  NRITE(#,220)  (DASH, J«1 ,NP) 
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non  n  n  n  o  oooo  non  o  o  noon 


220  FORMAT (11X,A10,4X,A10,4X,A10) 

WRITE (», 21S )  TOTL, (FIELD (J) ,J«1,NP) 

230  RETURN 
END 

SUBROUTINE  CONVT  (JF, FIELD, X) 

CALLED  BY  DUMP  TO  ENCODE  VALUE  X  INTO  'FIELD'  ACC0RDIN6  TO 
FORMAT  JF,  AND  POSSIBLY  INSERT  COMMAS. 

CHARACTERS  FIELD 

CHARACTERS  C I N ( 1 3 ) ,C0UT(13) ,SUNIH,COM,BL 
CHARACTER*?  VAR (8) 

DATA  VAR/ ' (F13.8) ' , ' (F13.7) ' , ' (F13.6) * , ' (F13.5) ' , 
fc  * (F13.4) ‘ ‘ (F13.3) * • ‘ (F13.2) * | ' (E13.9) '/ 

DATA  SUNIM/'-'/ 

DATA  COM  /','/ 

DATA  BL  /'  '/ 

IF  (JF  .LE.  7)  SOTO  4 
IF  (JF  .LE.  10)  SOTO  3 
IF  (JF  . 6T .  12)  BOTO  2 

CONVERT  TO  INTEGER  AND  ENCODE 

IX*X 

WRITE (FIELD, 1 )  IX 
1  FORMAT (I 13) 

JFROM-lt 
BOTO  13 


SIMPLY  ENCODE  AND  RETURN 

2  JF>8 

4  WRITE (FIELD , VAR ( JF) >  X 
RETURN 

3  WRITE (FIELD ,10)  X 
10  FORMAT (F13. 1 ) 

JFROM-9 

DECODE  INTO  CHARACTERS  TO  INSERT  COMMAS. 

13  READ(F1ELD,20)  CIN 
20  FORMAT (13A1) 

COPY  RI8HT  THREE  DIBITS  (AND  OECIMALS  IF  JFRQM»9). 

DO  30  L-JFR0M.13 
COUT (L) »CIN (L) 

30  CONTINUE 


nnnnnnnnnnnnn  non  o  oooo  ooo  ooo 


c 


LIN-JFROM 

LOUT-JFROM 

K4-3 


60  LEFT 

40  LIN-LIN-1 
LOUT-LOUT- 1 

IF  BLANK,  NE 'RE  THROUGH.  IF  MINUS,  STORE  MINUS  AND  HE ‘RE 
THROUGH. 

IF  (CIN (LIN)  .E0.  BL)  GOTO  60 
IF  (CIN (LIN)  .NE.  SUNIM)  GOTO  43 
COUT (LOUT) -SUNIM 
GOTO  63 

BUMP  DIBIT  COUNTER.  IF  4  DIGITS,  INSERT  COMMA  IN  OUTPUT 
BUFFER. 

43  K4-K4+1 

IF  (K4.LT.4)  GOTO  30 
K4-1 

COUT (LOUT) -COM 
LOUT-LOUT-1 
COPY  DIGIT 

30  COUT (LOUT) -CIN (LIN) 

SOTO  40 

PAD  HITH  BLANKS  AND  ENCODE  BACK  INTO  FIELD. 

60  IF  (LOUT.LE.O)  SOTO  70 
COUT (LOUT) -BL 
63  LOUT-LOUT-1 
GOTO  60 

70  HRITE (FIELD, 20)  COUT 
RETURN 
END 

SUBROUTINE  ADJUMP ( I03A , I04A , STORA, STORB, TITLE, LINE, *) 

CALLED  BY  OUTPUT  TO  TAKE  ADJUSTED  COSTS  OUT  OF  I03A  (AND 
I04A)  AND  FORMAT  THEM  FOR  OUTPUT  INTO  STORA  (AND  STORB). 

KODE  -  PRINT  CODE  OF  ADJUSTED  COST* 

80  -  NON-RECURRING  COSTS 

81  -  RECURRING  COSTS 

82  -  DISPOSAL  COSTS 

83  -  ADJLCC 

KOUNT  -  SUBSCRIPT  FOR  ALPHA* 

1  -  NR 

2  -  RC 

3  -  DP 
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o  n  rj  ci  o  o  n  n  n  n  oooo  n  o  n  n  n 


LINE  -  OUTPUT  LINE  NUMBER 

TITLE  -  ARRAY  CONTAINING  TITLE  FOR  EACH  LINE  -  COST  CATEGORY 
AND  YEAR. 

DIMENSION  STOR A (120) ,ST0RB(120) 

INTEGER  DUMA < 20) ,DUMN(6) 

CHARACTER*?  FIELD 
CHARACTER*?  TITLE (30) 

CHARACTER*2  ALPHA (3) 

COMMON  /SHARE/  SIN(40,4) ,RU1N< 120, 13) ,AFIN(S0,1S) ,SEIN(30, 9) 
*  D8E (50 ,2) , AIDATA(SO) ,C03TS(27) ,SCAL(7S) 

DATA  ALPHA/'NR ','RC ','DP'/ 

GET  BASE  YEAR 

IYEAR-8CALC7S) 

IF  (8CAL(78)  .LE.  -1.E30)  SOTO  10 
SOTO  30 
10  WRITE (*,20) 

20  FORMAT (/,'  BASE  YEAR  NOT  FOUND  IN  DATA.  SET  TO  1‘) 

IYEAR-1 
30  LINE-0 
K0DE-80 
REHIND  14 

BYPASS  HEADER  CARDS 

READ (14)  DUMA 
READ (14)  DUMN 
KOUNT-i 

IF  ( I04A  .HE.  0)  SOTO  110 

FIND  ADJUSTED  COSTS  IF  NO  PERTURBED  FILE. 

40  READ (14)  1 ,  VAL 

IF  (I  .EQ.  0)  RETURN  1 
IF  (I  .EQ.  S3)  RETURN 
IF  (I  .LT.  80)  80T0  40 
LINE-LINE*- 1 
STORA(LINE)»VAL 

NEXT  COST  CATEGORY 

SO  IF  (I  .EQ.  KODE)  SOTO  60 
KODE-KODE+l 
KOUNT-KQUNT+1 

60  WRITE (FIELD, 70)  ALPHA (KOUNT) , I  YEAR 
70  FORMAT ( A2, 1 X , 14) 

TITLE(LINE)-FIELO 


oooon  oorio  n  n  n  n  non  non  nnnn  oooo 


IYEAR-IYEAR+l 
SOTO  40 

FIND  ADJUSTED  COSTS  FOR  RE8ULAR  AND  PERTURBED  OUTPUTS. 

BYPASS  HEADER  CARDS 

110  REWIND  IS 

READ (IS)  DUMA 
READ (IS)  DUHN 
120  READ(14)  Il.VALi 
READ(IS)  12, VAL2 

END  OF  FILE  IS  REACHED.  ADJLCC  NOT  FOUND.  RETURN  TO  PRINT 
ERROR  NESSA8E. 

123  IF  (II  .EQ.  0  .AND.  12  .EQ.  0)  RETURN  1 

KEEP  READINS  CARDS  UNTIL  PRINT  CODE  FOR  FIRST  ADJUSTED  COST 
IS  FOUND. 

IF  (II  .LT.  80)  SOTO  120 

IF  BOTH  CARDS  HAVE  PRINT  CODE  S3,  NE  HAVE  ALL  ADJUSTED  COSTS 

IF  (II  .EO.  S3  .AND.  12  .EQ.  83)  RETURN 
LINE-LINE+1 

IF  (II  .NE.  KODE)  SOTO  130 
IF  (12  .NE.  KODE)  SOTO  ISO 

11  -  12  -  KODE 

BOTH  FILES  HAVE  THE  SAME  COST  CATE80RY. 

124  STORA (LINE) *VAL1 
STORB (LINE) *VAL2 

WRITE (FIELD, 129)  ALPHA (KOUNT) , I YEAR 

129  FORMAT (A2, IX , 14) 

TITLE(LINE)»FIELD 
IYEAR-1YEAR+1 
SOTO  120 

130  IF  (12  .EQ.  KODE)  SOTO  140 
11  >  12  >  KODE  +  1 

BOTH  FILES  CHANGED  AT  THE  SAME  TIME. 

KODE-KQDE+1 
K0UNT»K0UNT+1 
EflTQ  126 

11  *  KODE  ♦  1 

12  >  KODE 

PERTURBED  FILE  HAS  MORE  DATA. 


140  STORA (LINE) a0. 0 


on  n  n  o 


STORB(LINE) "VAL2 

WRITE (FIELD, 129)  ALPHA(KOUNT) , IYEAR 
TITLE (LINE) "FIELD 
I  YEAR- 1 YEAR+ 1 
READ (IS)  I2,VAL2 
GOTO  123 

11  -  KOOE 

12  ■  KODE  ♦  1 

BASE  FILE  HAS  MORE  DATA. 

ISO  3TQRA (LINE) "VAL1 
STORB (LINE) >0. 0 

WRITE (FIELD, 129)  ALPHA(KOUNT) , IYEAR 

TITLE (LINE) "FIELD 

IYEAR"IYEAR+1 

READ  (14)  I1,VU1 

SOTO  12S 
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